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Chapter 1 
OVERVIEW OF THE DRIVER ENVIRONMENT 



1 .1 Introduction to Configurable Drivers 

1 .2 Invoking a Driver through the OS 

1 .3 Initializing and Loading Configurable Drivers 

1 .4 Communicating through Request Blocks 

1 .5 Communication between Drivers 

OVERVIEW OF THE DRIVER ENVIRONMENT 

1 .1 INTRODUCTION TO CONFIGURABLE DRIVERS 

Configurable drivers are drivers that can be incorporated into the Operating System without rebooting it. With this 
feature, you simply inform the Operating System of the location of the new device, plug it in, and use it. Configurable 
drivers are compiled and linked as independent programs; once loaded into memory, they function as an integral part of 
the Operating System. This manual tells you how to write configurable drivers for the Lisa. 

Every peripheral device designed for use with the Lisa must be supported by a device driver that communicates with 
the device and with the Operating System (OS). Figure 1-1 shows the Operating System environment for device 
drivers; the figure also indicates where in this manual or related manuals you can find information about the interfaces 
between the device, the driver, the Operating System, and the application program. 

If the controller for a device can simultaneously support several devices by demultiplexing interrupts, it must have a 
demultiplexing driverthat dispatches interrupts to the device drivers. Section 1 .5 describes communication between 
drivers. 

Chapter 4 
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FIGURE 1-1 

Figure 1 -1 . Operating System Environment for Drivers 
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Driver operations vary with the type of device being supported. A driver for a sequential device must be able to transmit 
and receive byte streams of arbitrary length. For a disk device with a directory, the driver must be read and write 
contiguous 512-byte blocks and manage the 24-byte distributed directory record stored with every disk block. Disk 
drivers must also handle bad-block sparing. Demultiplexing drivers need to determine which device is the source of an 
interrupt and pass the interrupt to the appropriate device driver. 

Because the Lisa Operating System is a multitasking system, a device may receive I/O requests from more than one 
process. Therefore its driver must manage I/O Request Block queues and interact with the OS Scheduler and the 
Memory Manager. 

1 .2 INVOKING A DRIVER THROUGH THE OS 

When an application program requests I/O, a device driver is invoked by the OS, usually from the File System. The File 
System manages I/O to devices and files by calling upon device drivers and demultiplexing drivers to handle I/O 
requests for their devices. 

A configurable driver is not linked with the OS. It is linked as if it were a standalone, executable program with an internal 
driver function subroutine which is passed a single parameter record. The driver function may in turn call other Pascal 
or assembler subroutines, including OS subroutines named in a USES statement, as required. The value returned by 
the main driver function is the error code returned by the driver. The parameter record passed to the driver contains a 
function code that specifies the operation to be performed by the driver. A different variant set of parameters is 
associated with each function code so that each driver operation may have its own set of parameters. (For a skeleton 
driver written in Pascal, see Figure 6-1 .) 

The Operating System may invoke the driver to handle a hardware interrupt for its device, an interrupt of an alarm that 
the driver set, or a Memory Management request to restart an operation begun by the driver. In each case, a specific 
function code is used to inform the driver which operation it must perform. Figure 1-2 shows these operations on the 
left and their corresponding driver function codes on the right. An application program may also request an I/O 
operation such as reading, writing, or mounting a device. The OS passes the application's request to the driver by 
means of the function codes shown in Figure 1 -3. (For a description of the function codes, see Table 3-1 .) 
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Figure 1-2. How a Driver is Invoked by the Operating System 
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Figure 1-3. How a Driver is Invoked by an Application Program 
1 .3 INITIALIZING AND LOADING CONFIGURABLE DRIVERS 
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Configurable drivers are not usually made resident in memory until they are needed by an application. When a device is 
mounted, its driver is loaded from disk into memory and the driver's data structures are initialized. However, the driver 
writer specifies whether the driver for a device should be loaded into memory when the OS is booted (see Chapter 5, 
Specifying Characteristics for a New Driver). 

1 .4 COMMUNICATIONS THROUGH THE REQUEST BLOCKS 

The Operating System creates an I/O Request Block to communicate information about each I/O operation. Every 
Request Block is linked to both the Process Control Block of the requesting process and to the Device Control Block 
for the device. A single device can therefore be shared among several processes. In a multitasking operating system 
like the Lisa's, the process that initiates an I/O transfer may not be executing when the I/O transfer actually occurs; the 
Request Block provides the driver with information about the I/O operation to be performed. The driver may enqueue 
the request if its device is busy with a previous request; otherwise it initiates the requested operation immediately. The 
driver then returns to the OS without waiting for the requested operation to complete. 

READ_DATA and WRITE_DATA (File System procedures described in the Operating System Reference Manual 
for the Lisa) operate synchronously; that is, they do not return control to the application that calls them until all of the 
data has been read or written. Instead they call BLK_REQ to block the current process until their request has been 
completed. Thus different processes can overlap requests to the same device (because drivers are written to operate 
asynchronously), but read and write requests from a single process execute strictly in a synchronous fashion. An 
application consisting of several processes could achieve asynchronicity by allowing processing to continue in one of 
the non-blocked processes during each I/O transfer requested by another process. 

1 .5 COMMUNICATION BETWEEN DRIVERS 

Demultiplexing drivers serve as interrupt demultiplexers, while device drivers actually perform I/O transfers. A hierarchy 
of drivers may exist: a demultiplexing driver may call either a device driver or another demultiplexing driver below it in the 
hierarchy. The lowest level is always a device driver. 

Driver hierarchy is illustrated in Figure 1-4, using the Serial Communications Controller as an example. Interrupts are 
received by the Serial Communications Controller (SCC) driver at the highest level of the hierarchy. The SCC driver 
determines whether the interrupt is for the Asynchronous RS232 driver on Port A of the SCC or for the Applebus 
driver on Port B. RS232 is a sequential device; Applebus is a multi-drop, daisy-chained bus capable of controlling 
several different types of devices -- in this case, a printer and a disk. The Applebus driver determines which device on 
the bus is interrupting and invoked the driver for that device. 
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Figure 1-4. Communication between Drivers. 



The low-level drivers in this example are the Asynchronous RS232 driver, the printer driver, and the disk driver. Low- 
level drivers actually transfer data to or from the device. Higher-level drivers correspond to components in the hardware 
configuration that multiplex interrupts from several devices. Whenever a device driver is loaded into memory, the OS 
attaches it to each higher driver associated with it so that the higher driver can keep track of the devices it is responsible 
for. 
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CALLS FROM A DRIVER TO THE OS 

2.1 UTILITIES AND STANDARD DATA STRUCTURES 

Driversubs is a Pascal unit that enables drivers to access OS utility routines to perform the operations described in 
this chapter. These routines provide services such as memory management, real-time management, I/O Request 
Block management, and disk driver support. 

Driverdefs is a Pascal unit that provides definitions of data types for use in drivers. All of the Pascal identifiers used in 
this manual refer to Request Blocks and other standard driver data structures are defined in Driverdefs. Each device 
in the OS has a global Device Configuration Record. The Device Configuration Record (Devrec) is defined in the 
Driverdefs unit. Each time a driver is called, the address of the appropriate Device Configuration Record is passed to 
the driver. 

The object code for Driverdefs and Driversubs was supplied with your Lisa Operating System. For a listing of the 
source code for these units, see Appendix A. For information on how to make these units a part of your driver, see 
Chapter 6. 

Figures 2-1 through 2-3 show the relationship between the data structures used by a driver. (Figure 2-1 applies to 
sequential device drivers; Figure 2-2 applies to disk device drivers; Figure 2-3 applies to demultiplexing drivers and 
non-File System drivers.) All of the figures follow the same format. The center column shows the Device Configuration 
Record (and, for disk drivers, its extension). This record, one per device, is built by the Operating System during 
startup. The right-hand column shows the Device Control Block, which is allocated by the driver during its initialization, 
either at startup or when the device is mounted. You design the format of the Device Control Block to meet the needs 
of the particular device your driver supports. The left-hand column shows the data structures that are allocated during 
processing when a request is made for a particular operation. The Parameter Record contains the driver function code 
(described in Chapter 3) and other information applicable to the specific function to be performed. The name of each 
data structure is shown in capital letters above its symbol. Below it in parentheses is the name by which the data 
structure is known in Driverdefs. Each black rectangle represents a pointer field; the arrow shows the data structure 
to which it points. The Driverdefs name of the pointer field is shown to the left of the rectangle. 
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Figure 2-1 . Data Structures for Sequential Device Drivers. 



Page 13 of 141 



Device Drivers Manual 



Alpha Draft -- 1 1 January 1984 



DYNAMICALLY 
ALLOCATED 



PARAMETER RECORD 
(Params) 



Configptr 



allocated when driver 
is called 



I/O REQUEST BLOCK 
(Reqblk) 











Cfigptr 


















Req_extent 



















one per I/O request 
(e.g., READ_DATA) 



REQUEST BLOCK EXTENSION 
J (Disk_extend) 



one per device 



/ 



(Ext_diskconfig) 




ALLOCATED BY OS 
DURING STARTUP 



/ 

DEVICE CONFIGURATION RECORD 

(Devrec) 



ALLOCATED DURING 

DRIVER 

INITIALIZATION 



DEVICE CONTROL BLOCK 



allocated by HDISK 
during Dinit 



allocated by driver 

during Hdinit, 

driver defines contents 



FIGURE 2-2 



Figure 2-2. Data Structures for Disk Device Drivers. 
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FIGURE 2-3 

Figure 2-3. Data Structures for Demultiplexing and non-File System Drivers. 
2.2 MEMORY MANAGEMENT 
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A driver is not linked with the OS, although it must execute as though it were a part of the OS. Therefore a driver 
cannot contain any statically allocated global variables. Instead the driver must acquire global data space from the OS 
Memory Manager to hold any variables it needs to keep track of its device. The Device Configuration Record is 
acquired by the OS during system startup. However, the Device Control Block for the device must be acquired and 
filled in by the driver when it is invoked with the Dinit function code. 

Memory management support routines are provided to ensure that user data buffers will be accessible by the driver 
when an interrupt occurs. 

2.2.1 Global Data Space 

Each device may acquire memory space from the OS Memory Manager. One thousand bytes per device is an 

approximate upper limit on the amount of global data space a driver may acquire. 

GETSPACE and RELSPACE are for dynamically acquiring and releasing OS global memory space. Drivers typically 
use GETSPACE during driver initialization (Dinit function code) and RELSPACE during driver resource 
deallocation (Ddown function code). 

2.2.1.1 GETSPACE Function 

function GETSPACE (Amount:int2; B_area:absptr; var Ordaddr:absptr): 
boolean 

Input Parameters: 

Amount: Number of bytes of free space required 

Barea: Base address of the free space pool data area. 
Output Parameters: 

GETSPACE: True if space was allocated; 

False if sufficient space was not available. 

Ordaddr: Address of the dynamic space allocated. 

Dynamic space is allocated from a free space pool. B_area must contain a pointer to the free space pool header. The 
value for B_area is provided by the constant Bsysglob, defined in Driverdefs. To point to the pool, the following 
lines of code are recommended: 

var 

ptrsysg: A absptr; 

ptrsysg := pointer(Bsysglob); 
GETSPACE(Amount, ptrsysg A , Ordaddr); 

Return with error 610 if GETSPACE returns false. 

2.2.1.2 RELSPACE Procedure 

procedure RELSPACE (Ordaddr: absptr; B_area:absptr) 

Input Parameters: 

Ordaddr: Address of the dynamic space allocated. 
B-area: Base address of the free space pool data area. 

Ordaddr contains the address that was provided by the GETSPACE function. The dynamic area at Ordaddr will be 
released back into the free space pool maintained in the data area defined by the base address B_area. (Refer to the 
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sample program fragment in the GETSPACE Procedure, Section 2.2.2.1 .) 
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2.2.2 User Data Buffers 

User data buffers are located in data segments managed by the OS Memory Manager. Memory mappingis an 
addressing function provided by the MMU (Memory Management Unit) hardware. The mapped address for a data 
segment never changes during execution of its process; however, the underlying unmapped address (that is, its real 
location in memory), changes as the OS Memory Manager manipulates the location of the data segment during memory 
compaction operations. 

After a process requests I/O, its data buffers may not be mapped by the hardware MMU at the time of the interrupt. The 
routines in this section are provided to guarantee that when an interrupt occurs, the driver can locate the memory 
address for reading or writing data. 

Disk drivers do not call these routines because H DISK calls them on behalf of the driver. 

FREEZE_SEG prevents the data buffer from being moved by the Memory Manager during memory compaction; 
UNFREEZE_SEG releases the data buffer data to normal memory management. ADJ_IO_CNT provides a means 
of keeping track of the number of pending I/O requests for a given data segment. 

2.2.2.1 FREEZE_SEG Procedure 

procedure FREEZE_SEG (var Errnum:int2; C_sdb:absptr; Offset:int4; loreq_addr:absptr; 
var Buffaddr:absptr); 

Input Parameters: 

C_sdb: Data segment to be frozen. 

Offset: Supplied by a prior call to CVT_BUFF_ADDR. 

loreq_addr: Pointer to the Request Block for the data segment. 

Output Parameters: 

Errnum: = successful freeze; 

nonzero = data segment in motion, unable to freeze. 
Buffaddr: Offset converted to a valid address. 

The FREEZE_SEG procedure freezes the data segment in memory. The freeze count of data segmentC_sdb is 
increased by one each time FREEZE_SEG is called. Once frozen, the data segment cannot be moved by the OS 
Memory Manager until it is unfrozen. When the data segment is frozen, Offset is converted to an address that can be 
used by the driver. 

If the Memory Manager is in the process of moving the data segment at the time FREEZE_SEG is called, the freeze 
does not take place. The loreq_addr pointer is saved by the Memory Manager so that it can be returned to the driver 
after the data segment has been moved; the Memory Manager calls your driver with the Reqrestart function code 
after it has finished moving the data segment. 

C_sdb and Offset must be the Ordsdb and Offset values returned by the CVT_BUFF_ADDR procedure. If the 
driver was invoked with function code Dskio, Seqio, or Hdskio (that is, by READ_DATA or WRITEDATA), 
CVT_BUFF_ADDR has already been called and the values it returned were saved for you in the Request Block 
variables Buff_rdb_ptr and Buff_offset. If the driver was invoked with function code Dcontrol (that is, by a driver- 
initiated request for I/O from or to a user data buffer), you must call CVT_BUFF_ADDR yourself before calling 
FREEZE_SEG. 

2.2.2. UNFREEZE_SEG Procedure 
procedure UNFREEZE_SEG (c_sdb:absptr) 
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Input Parameters: 

c_sdb: Pointer to the data segment to be unfrozen. 

The freeze count of data segment C_sdb is decreased by one each time UNFREEZE_SEG is called. When the 
freeze count reaches zero, the data segment is no longer frozen and may be moved by the Memory Manager. 

2.2.2.3 ADJ_IO_CNT Procedure 

procedure ADJ_IO_CNT (lnc_io_cntF: boolean; C_sdb:absptr) 

Input Parameters: 

lnc_io_cntF: True if the count is to be incremented. 

False if the count is to be decreased. 
C_sdb: Data segment to be adjusted. 

ADJ_IO_CNT adjusts the count of pending I/O requests for the data segment upward or downward depending on 
the value of lnc_io_cntF. When the I/O count reaches zero, the Memory Manager is permitted to swap the data 
segment to disk if necessary. 

ADJ_IO_CNT is called by driver support routines in the Operating System to increase the I/O count for a device 
before Seqio or Dskio is called. To decrease the count, ADJ_IO_CNT must be called by your driver (HDISK calls it 
for disk drivers) at the time the I/O request is completed. 

2.3 REAL-TIME MANAGEMENT 

This section discusses critical timing considerations, interrupt handling and interrupt masking, a timer for timing driver 

code, and alarms for lengthy interrupt processing. 

2.3.1 The Microsecond Timer 

To help you determine how much time your driver spends in critical sections of code, a microsecond timeris available. 
The microsecond timer simulates a continuously running 32-bit counter that is incremented every microsecond. The 
timer changes sign about once every 35 minutes, and rolls over every 70 minutes. It is initialized to zero when the Lisa 
is booted. 

2.3.1.1 MICROTIMER Function 

function MICROTIMER: longint 

Output Parameters: 

MICROTIMER: Current value of the microsecond timer. 

The microsecond timer is designed for performance measurements. It has a resolution of 2 microseconds. Calling 
MICROTIMER from Pascal takes about 135 microseconds. Note that interrupt processing will have a major effect on 
microsecond timings if MICROTIMER is called from within a routine that has interrupts enabled. 

2.3.2 ALARMS 

Twenty independent alarms are shared by all drivers. Alarms can be dynamically acquired by drivers and should be 
returned when no longer needed. For line protocol timeouts, an alarm can be set to "wake up" the driver after a 
specified interval of time. The alarms have a 1 0-millisecond resolution; that is, if you set an alarm to go off with a delay of 
500 milliseconds, the actual delay will be between 490 and 510 milliseconds. 

The routines associated with alarms are 
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Get an alarm - ALARM_ASSIGN 
Set an alarm - ALARMRELATIVE 
Turn off an alarm -- ALARMOFF 
Return an alarm - ALARMRETURN 

After obtaining an alarm by calling ALARM_ASSIGN, the driver sets the alarm to a specified number of milliseconds in 
the future. When the millisecond timer reaches the alarm's setting, the driver's alarm handler is called by means of the 
Dalarms function code. 

Interrupts at the priority levels specified by ALARM_ASSIGN are disabled during execution of the alarm handler. 

2.3.2.1 ALARM_ASSIGN Procedure 

procedure ALARM_ASSIGN (var Alarm:integer; Pdr:Ptrdevrec; Status:intson_type) 

Input Parameters: 

Pdr: Pointer to the Device Configuration Record associated with this alarm. 
Status: Level of interrupts enabled in alarm handler. 

Output Parameters: 

Alarm: Number of the assigned alarm; zero if none available. 

ALARMASSIGN returns an alarm number in Alarm. If an alarm is not available, Alarm is zero; your driver should 
then return with error 602. 

The driver should associate the alarm with the device specified in Pdr by saving the alarm number returned in Alarm in 
the Device Control Block. 

Interrupts from your device should be disabled while your alarm handler is executing in order to prevent data in the 
Device Control Block from being inconsistently modified. Status is the interrupt priority you want to be in effect when 
the alarm goes off. You should set Status to the lowest value that will disable interrupts for your device. (See the 
INTSOFF procedure, Section 2.3.3.1 , for more information on possible values of Status.) When the alarm goes off, 
the driver is called using the Dalarms function code with the interrupt priority set to Status. 

2.3.2.2 ALARMRELATIVE Procedure 

procedure ALARMRELATIVE (Alarm:integer; Delay:longint) 

Input Parameters: 

Alarm: Number of the alarm to be set. 

Delay: Milliseconds to wait before the alarm goes off. 

ALARMRELATIVE sets an alarm to go off Delay milliseconds in the future. When Delay milliseconds have 
elapsed, the driver is called with the Dalarms function code. 

If Delay is zero or negative, the alarm goes off immediately (at the next system alarm interrupt). 

Each alarm remembers only one setting. To reset an alarm call ALARMRELATIVE again; this causes the previous 
setting to be disregarded. 

2.3.2.3 ALARMOFF Procedure 
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procedure ALARMOFF (Alarm:integer) 

Input Parameters: 

Alarm: Number of the alarm to be turned off. 

ALARMOFF turns off an alarm that was previously set by ALARMRELATIVE. That is, ALARMOFF can be used to 
cancel a request for an alarm interrupt. 
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2.3.2.4 ALARMRETURN Procedure 

procedure AlarmReturn (Alarm:integer) 

Input Parameters: 

Alarm: Number of the alarm to be returned to the pool. 

The ALARMRETURN procedure returns an alarm acquired by ALARM_ASSIGN to the pool of available alarms; 
another driver can then use it. 

Alarms should be returned when they are no longer needed by your driver. This happens when the driver is called with 
the Ddown function code. 

2.3.3 Enabling and Disabling Interrupts 

Device Control Block variables may be in use by two or more driver functions at a time, potentially leaving the Device 
Control Block in an inconsistent state. To prevent this, interruptible driver functions must disable interrupts for a short 
period of time while updating the Device Control Block. The INTSOFF procedure allows you to disable some or all 
interrupts; the INTSON procedure re-enables them. 

The interrupt priority mask determines which interrupts will be acknowledged by the processor. Any interrupt with a 
priority higher than the mask is acknowledged; any interrupt with a priority less than or equal to the mask is inhibited, 
(for a more detailed description of the interrupt priority mask, see the MC68000 user's manual.) 

On the Lisa, the interrupt priorities are as shown in Table 2-1 . 

Table 2-1 

Hardware Interrupt Priorities 



Priority Hardware 

1 system clock, built-in floppy disk, built-in parallel port 

2 keyboard, mouse, time-of-day clock/calendar 

3 slot 3 

4 slot 2 

5 slot 1 

6 built-in serial ports A and B 

7 memory parity error, programmable NMI (nonmaskable interrupt) key 

2.3.3.1 INTSOFF Procedure 

procedure INTSOFF (Level:intsoff_type, var Status:intson_type) 

Input Parameters: 

Level: New interrupt priority 

Output Parameters: 

Status: Old interrupt priority 

INTSOFF allows you to temporarily turn off some or all interrupts by specifying a new value in Level. Values for 
Level are 

clokints, winints, or twigints (priority = 1) 
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slotints (priority = 5) 

rsints (priority = 6) 

allints (priority = 7) 

Before INTSOFF changes the interrupt priority, it saves the current priority; this is returned to you in Status and 
should be used in the INTSON procedure to reset the priority level to its original value. 

2.3.1 INTSON Procedure 

procedure INTSON (Status: intson_type) 

Input Parameters: 

Status: Interrupt level to be restored. 

The INTSON procedure enables interrupts that were disabled by a previous call to INTSOFF. Status contains the 
original interrupt priority level in effect at the time INTSOFF was called. 

2.3.4 Lengthy Interrupt Processing 

An interrupt that takes more than a few milliseconds should process with all other interrupts enabled. The interrupt 
handler for you device can accomplish this by calling an alarm routine to perform the extended interrupt processing. 
The alarm mechanism is merely a convenient vehicle for scheduling a lengthy interrupt that can execute with interrupts 
enabled for all devices. 

When your interrupt handler determines that extended processing is required, it call ALARM_ASSIGN to associate 
an alarm with the lengthy interrupt routine, specifying an interrupt level of clkonints to enable all interrupts during 
execution of the routine. The interrupt handler then calls ALARMRELATIVE with zero millisecond delay, so that the 
alarm routine will begin execution as soon as possible. The actual delay before starting will always be less than twenty 
milliseconds and will average about five milliseconds. 

In the 68000 architecture, a device's interrupt handler (its Dinterrupt routine) executes with interrupts disabled for all 
devices of same or lower interrupt priority. The body of the lengthy-interrupt alarm routine (Dalarms) will execute with 
all interrupts enabled. Therefore it is necessary to protect the Device Control Block from simultaneous access when 
the same device tries to interrupt during the extended processing of a prior interrupt. 

Be sending an appropriate signal to the device, the device's interrupt handler can disable (and hold pending) any 
further interrupts for the interrupting device until the alarm routine has completed its processing. For example, if there 
is an interrupt from the 6522 parallel port that requires extended processing, the interrupt handler can set a bit in the 
6522's Interrupt Enable Register (IER) to zero. This prevents further interrupts from the device. When the alarm 
routine completes its extended processing alarm routine, the IER must be restored to the required non-zero value so 
that interrupts may occur again. For the serial ports, Write-Register-1 on the SCC serves the same function as the IER 
on the 6522. The disadvantage of this technique is that it increases the interrupt response latency on the device 
requiring extended processing. Depending upon the device, this may or may not be a problem. 

Some devices require very short interrupt response latency (less than 70 microseconds) or long interrupt execution 
times (more than 10 milliseconds). Such devices (for example, laser printers and some serial communications protocols 
at high baud rates) require all of the processing power of the 68000 for extended periods of time. Such devices are 
not really suitable for use in the multi-tasking Lisa environment. Unless these devices are provided with intelligent 
controllers that don't force an interrupt on the transfer of each byte, the Lisa is unavailable for any other tasks while it is 
supporting these devices. 

2.4 I/O REQUEST BLOCK MANAGEMENT 
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As part of its I/O operations, your driver uses and updates fields within a Request Block. When it is passed to the driver, 
the Request Block (and, in some cases, its extension) already contains information about the I/O request. The driver is 
responsible for updating the transfer count and other fields in the Request Block. 

2.4.1 Request Block Initialization 

When a driver is invoked with function code of Seqio or Dskio, a pre-initialized Request Block is passed to the driver. 
All the information needed to initialize the I/O request is passed to the driver in the Request Block. The information in 
the Request Block is initialized as follows: 

pcb_chain: doubly-linked list to Process Control Block 

(PCB) 

reqstatus 
reqsrvv_f: active 

reqabt_f: false 

block_p_f: false 

blk_in_pcb: [i_o] 

hard_error: 

operatn: for write; 1 for read 

cfigptr: pointer to device's configuration table entry 

req_extent: address of Request Block extension 

All Request Block extensions are initialized as follows: 

read_flag: true if read, false if write 

xfer_count: 

buff_rdb_ptr and 

buff_offset: result of calling CVT_BUFF_ADDR on data buffer 

For extensions used by Seqio only, the following field is initialized: 

num_bytes: desired length of transfer 

For extensions used by Dskio only, the following fields are initialized: 
blkno: block number to begin read or write 

soft_headr: initial value for 24-byte file system "pagelabel" 
last_fwd_link: fwdjink value in pagelabel of final block 
last_data_used: data-used value in pagelabel of final block 
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num_chunks: number of blocks (512 bytes, plus header) to transfer 

io_mode: with_header... write using headers from soft_headr 

without_header.. .doesn't transfer headers 

raw_io... memory filled with all the headers, followed by all the data 

chained_hdrs...read using headers and verify against 
contents of soft_headr 

2.4.2 Request Block Updating 

When the driver starts up an I/O request, the following field should be changed in the Request Block: 

reqstatus 
reqsrvf: inservice 

When a request for I/O has been completed or an error has occurred, your driver must update the Request Block and 
then call UNBLK_REQ to notify the OS that your driver is finished with the request. The error field in the Request 
Block must be set: 

hard_error: =0 for no errors, <0 for warnings, >0 for errors 

(warnings and errors, pass False to UNBLK_REQ) 

The driver must update the transfer count field in the Request Block extension: 
xfer_count: number of bytes transferred (not including bytes in disk block headers) 

For Dskio only, the driver must update the following field in the Request Block extension: 

soft_headr: the last header read when using "chained_hdrs" 

io_mode 

2.4.2.1 UNBLK_REQ 

procedure UNBLK_REQ (Reqptr:reqptr_type; Success_f:boolean) 

Input Parameters: 

ReqptnPointer to the request that is completed. 
Success_f : True if the request was successfully completed; 
False if Hard_error contains non-zero value. 

UNBLK_REQ unblocks the process that is waiting for the request specified by Reqptr. Success_f is a flag that 
informs the process of the result of the I/O request. 

For disk drivers the H DISK unit calls UNBLK_REQ on behalf of the driver at the end of a read or write. Other drivers 
must call UNBLK_REQ themselves. 

2.4.3 Request Block Queues 

A queue is a linked list, or chain. Two types of linked lists are used for Request Blocks: the first is a chain of all current 
Request Blocks for a particular process; the second is a chain of all Request Blocks waiting to perform I/O on a single 
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peripheral device. Figure 2-1 illustrates the two types of Request Block queues. 
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The two types of Request Block queues are circular (the end of the queue points back to the beginning) and doubly- 
linked (each Request Block points backward to the previous Request Block in the chain and forward to the next one). 
Figure 2-2 shows how a linkage record is inserted in a circular queue. The forward and backward chaining of Request 
Blocks is accomplished by means of the linkage data type. Linkages are not full addresses but rather offsets within the 
global data area. 
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Request Block queues for disk READ_DATA and WRITE_DATA requests are handled by HDISK, a unit in the 



Page 28 of 141 



Device Drivers Manual Alpha Draft -- 1 1 January 1984 

Operating System. For all other kinds of I/O, your driver must maintain these queues. Three procedures and functions 
are available to help you: 

o ENQUEUE inserts linkages in a Request Block queue. 

o DEQUEUE removes linkages from a queue. 

o CHAIN_FORWARD points to the next Request Block in the queue. 

2.4.3.1 ENQUEUE Procedure 

procedure ENQUEUE (var Newlink, Leftlink:linkage; B_sysarea:absptr) 

Input Parameters: 

Newlink: Linkage record of the new control block. 
Leftlink: Linkage record of previous block in chain. 
Bsysarea: Address ordinal of the data area base. 

ENQUEUE places Newlink next in a chain headed by Leftlink. Newlink is the linkage record of the Request 
Block to be added to the chain. Leftlink is the linkage record of the Request Block in the chain after which Newlink 
is to be added. The linkage values are relative pointers to the linkage record. ENQUEUE assumes that the queue 
has been initialized as a circular chain and that the caller has exclusive access while the chain is being modified. 

B_sysarea must contain the address of the free space pool header; refer to the GETSPACE Function, Section 
2.2.2.1 , for more information. 

2.4.3.2 DEQUEUE Procedure 

procedure DEQUEUE (var Link:linkage; B_sysarea:absptr) 

Input Parameters: 

Link: Linkage record to be removed from the queue. 
Bsysarea: Address ordinal of the data area base. 

DEQUEUE removes a Request Block from a queue. DEQUEUE assumes that the queue has been initialized as a 
circular chain and that the caller has exclusive access while the chain is being modified. 

B_sysarea must contain the address of the free space pool header; refer to the GETSPACE Function, Section 
2.2.2.1 , for more information. 

2.4.3.3 CHAIN_FORWARD Function 

function CHAIN_FORWARD (Current:linkage):reqptr_type 

Input Parameters: 

Current: Linkage record of old Request Block. 

Output Parameters: 

CHAIN_FORWARD: Pointer to new Request Block. 

CHAIN_FORWARD uses the forward link of the linkage record to point to the next Request Block in the queue so 
that your driver can initiate the next I/O request for the device. 

For non-disk drivers, the following steps should be performed when the current I/O request is complete: 
1. Call UNBLK_REQ for the request you just completed. 
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2. Call CHAIN_FORWARD to get the next Request Block in the 
queue linked to the Device Control Block. 

3. Start the next I/O request. 

For disk drivers, call IODONE to perform these steps. 

2.5 DISK DRIVER SUPPORT 

The Lisa Operating System provides special utility routines for disk drivers: USE_HDISK, CALL_HDISK, 
IODONE, and OKXFERNEXT. These routines make subroutine calls into the HDISK unit (listed in Appendix A). 
Only disk drivers may use these routines. 

o USE_HDISK notifies the OS that your driver wants to use CALL_HDISK. Your disk driver must call 
USE_HDISK once, before calling CALL_HDISK, each time the driver is initialized (Dinit function code). 

o CALLHDISK performs the functions associated with the Dinit, Ddown, Dskio, and Reqrestart 
function codes. Whenever you disk driver gets called with function code, it should call CALL_HDISK to 
perform these functions. 

CALL_HDISK may be used only with a disk device with Lisa-format sectors. These are 512-byte sectors 
preceded by a sector header in pagelabel format (see the pagelabel format record in Driverdefs, listed in 
Appendix A). 

o IODONE unblocks the current completed I/O request, takes the next request from the device's Request 
Block queue, and initiates it. 

o OKXFERNEXT updates and verifies the sector header for each block transferred to or from the disk. Your 
driver calls it after transferring each 512-byte block. 

2.5.1 USE_HDISK Procedure 
procedure USE_HDISK (Configptr:ptrdevrec) 

Input Parameters: 

Configptr: Points to Device Configuration Record for the hard disk device. 

US EH DISK does initialization for a disk driver. The disk device must use Lisa-format sectors. Your disk driver should 
call USE_HDISK during the driver's Dinit routine. 

2.5.2 CALL_HDISK Procedure 

procedure CALL_HDISK (var Error:integer; Configptr:ptrdevrec; Parameters:param_ptr) 

Input Parameters: 

Configptr: Points to Device Configuration Record. 
Parameters: Parameter list that was passed to the driver. 

Output Parameters: 

Error: Indicates result of CALLJHDISK operation. 

CALL_HDISK calls the HDISKIO routine in the HDISK unit to support the driver's Dinit, Ddown, Dskio, and 

Reqrestart functions. The driver must take the Error value returned by CALL_HDISK and assign it to the driver's 
function result before returning. 
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2.5.3 IODONE Procedure 

procedure IODONE (Port_ptr:hdskcb_ptr; Prev_err:integer) 

Input Parameters: 

Port_ptr: Points to Device Control Block. 
Prev_err: Contains completion error. 

Your driver must call IODONE after it finishes servicing an I/O request in order to finish processing the request and 
initiate the next request. 

2.5.4 OKXFERNEXT Function 

function OKXFERNEXT (Port_ptr:hdiskcb_ptr):integer 

Input Parameters: 

Port_ptr: Points to Device Control Block. 
Output Parameters: 

OKXFERNEXT: Zero if successful, else error code. 

OKXFERNEXT updates the File System sector headers and data pointers and tests to see whether another sector 
can be transferred. If any errors are found in the sector just transferred, the transfer is terminated and OKXFERNEXT 
returns a nonzero error code. If a new transfer can be initiated, OKXFERNEXT returns zero. 

2.6 DRIVER-INITIATED I/O REQUESTS 

Your driver may not be able to complete a requested operation immediately because it takes time for the device to 
perform the operation. This is true when function codes Dinit, Dcontrol, and Dskformat are invoked and call 
BLK_REQ to wait for I/O to complete. READ_DATA and WRITE_DATA call the OS to do deferred-request 
management for the driver, calling Seqio or Dskio in the driver when needed; in other cases the driver has to perform 
these operations for itself. 

To defer an I/O request, follow this procedure: 

1 . Call GETSPACE to create an I/O Request Block. 

2. Call LINK_TO_PCB to initialize the Request Block and link it to the Process Control Block of the active 

process. 

3. Call CVT_BUFF_ADDR to convert the I/O buffer address (if any) to a format the interrupt handler can use. 

4. Call BLK_REQ to wait until the I/O request has been serviced. 

5. When your request is unblocked by the Scheduler, call CANCEL_REQ to unlink the Request Block from the 

Process Control Block and return its space to the free space pool. 

When managing your own Request Blocks, you will need to call INTSOFF, INTSON, ENQUEUE, UNBLK_REQ, 
and possibly ADJ_IO_CNT, FREEZE_SEG, and UNFREEZE_SEG, described in this chapter. 

2.6.1 LINK_TO_PCB Procedure 

procedure LINK_TO_PCB (Req_ptr:reqptr_type) 
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Input Parameters: 

Req_ptr: Pointer to the new Request Block. 

LINK_TO_PCB takes a Request Block created using GETSPACE, initializes several standard fields, and links the 
Request Block to the Process Control Block of the currently active process. (The Reqspec_info field is not 
initialized.) 

2.6.2 CVT_BUFF_ADDR Procedure 

procedure CVTBUFFADDR (var Errnum:int2; Mem_writeF:boolean; Buffaddnabsptr; 
Byte_cnt:int4; var Ordsdb:absptr; var Offset:int4) 

Input Parameters: 

Mem_writeF: True if transfer from device to memory. 

Buffaddr: Address to be converted. 

Byte_cnt: Number of bytes to transfer to or from memory. 

Output Parameters: 

Errnum: Zero if successful conversion; else nonzero. 
Ordsdb: Pointer to the data segment that includes Buffaddr. 
Offset: Relative offset within the data segment. 

CVT_BUFF_ADDR takes an address in the application program's address space and breaks it into two parts: a 
pointer to the data segment descriptor and an offset within the data segment. Interrupt handlers need this form of 
address to access the user's data when it is not currently mapped by the Memory Management Unit hardware. 
CVT_BUFF_ADDR also verifies that the requested I/O operation is valid for the specified data segment; for 
instance, you can't pass an address within a program as the destination for a read operation. 

2.6.3 BLK_REQ Procedure 

procedure BLK_REQ (Reqptr:reqptr_type; var First_reqptr:reqptr_type) 

Input Parameters: 

Reqptr: Pointer to list of requests to wait for. 

Output Parameters: 

First_reqptr: Pointer to list of completed results. 

When BLK_REQ is called, the current process is blocked until any of the requests passed to BLK_REQ has 
completed. (Request completion is signaled when the driver calls UNBLKREQ.) 

Reqptr points to a linked list of I/O Request Blocks representing events whose completion the current process must 
await. First_reqptr points to a linked list of completed I/O requests, in the order in which they were completed. 

2.6.4 CANCEL_REQ Procedure 
procedure CANCEL_REQ (Req:reqptr_type) 

Input Parameters: 

Req: Pointer to Request Block to cancel. 

CANCEL_REQ unlinks the specified Request Block from its Process Control Block and releases its space back to 
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the free space pool. 

2.7 MISCELLANEOUS SUBROUTINES 

This section contains information on routines that 
o report fatal errors -SYSTEM_ERROR. 
o detect availability of the System_Log file -- LOGGING. 
o log data into the System_Log file -- LOG. 
o testa byte using a bit mask-- ALLSET. 

ocall a device driver from a demultiplexing driver -- CALLDRIVER. 
o synchronize access to the parallel port -- DISKS YNC. 
o detect pressing of disk buttons and switches - KEYPUSHED. 

2.7.1 SYSTEM_ERROR Procedure 
procedure SYSTEM_ERROR (Errnum:integer) 

Input Parameters: 

Errnum: Error code provided by the driver. 

When a driver encounters an error condition so serious that it cannot continue, it should call SYSTEM_ERROR, 
which uses Errnum to pass an error code from the driver to the Operating System; SYSTEM_ERROR does not 
return to the driver. Do not use S YSTEMERROR if an error code can be returned to the caller. 

The value of Errnum should be 10,000 plus the driver error number. 

2.7.2 LOGGING Function 
function LOGGING: boolean 

Output Parameters: 

LOGGING: True if system logging is operational; else false. 

Before logging an entry using the LOG procedure, use the LOGGING function to determine whether system logging 
is available. If logging is not available, LOG should not be called. 

2.7.3 LOG Procedure 

procedure LOG (var Errnum:integer; Ptr_arr:absptr) 

Input Parameters: 

Ptr_arr: Pointer to 12 bytes of data to be logged. 

Output Parameters: 

Errnum: Error code. 

The LOG procedure allows you to make a 12-byte entry in the System. Log file if logging is active. The procedure 
may be used to log disk errors. The data to be logged may be in any format. 

Before calling LOG, you should determine whether logging is available by calling the LOGGING function. 

2.7.4 ALLSET Function 

function ALLSET (Source, Target:int1):boolean 
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Input Parameters: 

Source: Mask bits. 
Target: Bits to be tested. 

Output Parameters: 

ALLSET: True if all mask bits are set in target; else false. 

ALLSET determines whether all the bits in Source are on (set to one) in Target. Target is a byte in which each bit 
has separate significance; for instance, the status register for a device. Source is a mask byte. If the integer value of 
Target is 7 (000001 1 1 ) and the integer value of Source is 3 (000001 1 ), ALLS ET returns true. (If the value of 
Source is zero, ALLSET returns true.) 

2.7.5 CALLDRIVER Procedure 

procedure CALLDRIVER (var Errnum:integer; Config_ptr:ptrdevrec; Parameters:param_ptr) 

Input Parameters: 

Config_ptr: Pointer to the Device Configuration Record for the device. 
Parameters: Variant record containing driver parameters. 

Output Parameters: 

Errnum: Depends upon Parameters. 

CALLDRIVER is used by a demultiplexing driver to call a lower-level driver with an interrupt intended for its device. 
The device driver must previously have been associated with the demultiplexing driver by means of the Dattach 
function code. 

2.7.6 DISKSYNC Procedure 
procedure DISKSYNC (Busy:boolean) 

Input Parameters: 

Busy: True if built-in parallel port is busy; False if port is free. 

The built-in parallel port (Hard Disk VIA) is shared by the disk driver, printer driver, and video contrast control routines. 
All device drivers using this port must synchronize their access to it by calling DISKSYNC before and after each use of 
the port. When the port is free, the contrast control routines are able to modify and then restore the registers in the 
6522 VIA. 

HDISK calls DISKSYNC for disk drivers performing reads and writes. However, when a disk driver is formatting or 
initializing the built-in parallel port, it must call DISKSYNC itself. 

To gain control of the built-in parallel port, call DISKSYNC with Busy set to true before doing I/O; when the I/O has 
completed, call DISKSYNC again with Busy set to false. (The port is initially free.) 

It is not necessary to call DISKSYNC when accessing a parallel port in one of the Lisa's three I/O expansion slots. 
Only the built-in parallel port needs this synchronization. 

2.7.7 KEYPUSHED Procedure 
procedure KEYPUSHED (Key:0..127) 
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Input Parameters: 

Key: Keycode of the pseudo-key that was pressed. 

The disk insertion switches, the disk eject buttons, and the power button -- collectively known as pseudo-keys - are 
not detected by the normal keyboard driver. Drivers that detect these switches and buttons must call the 
KEYPUSHED procedure each time a pseudo-key is pressed. You must identify the pseudo-key that was pressed by 
setting Key to one of the keycode values shown below: 

Keycode Meaning 

1 disk was inserted in disk 1 

2 disk 1 eject button was pressed 

3 disk was inserted in disk 2 

4 disk 2 eject button was pressed 

1 1 disk was inserted in built-in Sony drive 

12 disk was inserted in slot 1 device 

1 3 disk was inserted in slot 2 device 

1 4 disk was inserted in slot 3 device 
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DRIVER FUNCTION CODES 

3.1 INVOKING THE DRIVER 

A driver is invoked directly by the Operating System or by another driver through the CALLDRIVER procedure 
(described in Section 2.7.5). Every time the driver is invoked, it must perform a specific operation as specified in the 
function code-- the Fnctn_code field of the Params record that is passed to the driver. This chapter describes the 
operations that must be performed for each function code. 

If your driver receives a function code that it does not recognize, it should return with error number 656 in its function 
result. 

The Params record is passed to the driver no matter which function code is invoked; therefore it is not listed in the 
documentation for each function code. The parameters that are shown in curly brackets under the function code are 
those that are passed to the driver in addition to Params. 

The format of the Params record differs depending on the function code; it always contains a pointer to the Device 
Configuration Recorder the device as well as the function code itself. 

For device-independent applications that call READ_DATA and WRITE_DATA, standard driver function codes are 
provided. For nonstandard devices (those that cannot be supported through the File System) or nonstandard 
applications, a mechanism is provided for the application to communicate all I/O requests directly to the driver using 
DEVICE_CONTROL. In this case the driver must respond to the Dcontrol function code and must perform its own 
Request Block management. Standard drivers may on occasion call DEVICE_CONTROL to perform functions such 
as setting baud rate or acquiring status information. 

To improve performance, routines that process driver function codes (for example, Dinterrupt, which may require fast 
execution) may be written in assembler language rather than Pascal. 

When Apple integrates networks into the Lisa Operating System, new function codes may be added for handling 
network-specific functions. 

3.2 DRIVER OPERATIONS 

There are certain operations that are standard for each driver type: sequential, disk, demultiplexing, and non-File 
System. Requests for these operations are signaled to the driver by means of the driver function code. Errors the 
driver encounters while processing a request are reported in the driver function result. 

3.2.1 Driver Types and their Function Codes 

Table 3-1 is a list of driver function codes and the operations they represent by type. 

Table 3-1 
Driver Operations 

FUNCTION CODES SHARED BY DIFFERENT DRIVER TYPES: 

Dinterrupt Handle a device interrupt 

Dinit Initialize a driver and its associated device 

Ddown Shut down a driver and its associated device 

Dcontrol Send or receive device-dependent information 

Reqrestart Restart an I/O request 
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Dalarms Handle an alarm interrupt 

FUNCTION CODES FOR SEQUENTIAL DEVICE DRIVERS: 

Seqio Input/output to a sequential device 

Ddiscon Disconnect modem 

FUNCTION CODES FOR DISK DEVICE DRIVERS: 

Dskio Start I/O to a disk device 

Dskunclamp Eject a disk from the disk device 

Dskformat Format a disk 

Hdinit Initialize a disk device driver 

Hddown Shut down a disk driver and its associated device 

Hdskio Transfer data to or from a disk device 

FUNCTION CODES FOR DEMULTIPLEXING DRIVERS: 

Dattach Associate a driver with this demultiplexing driver 

Dunattach Dissociate a driver from this demultiplexing driver 

A driver needs to handle only a subset of the standard driver operations. Table 3-2 indicates which driver types must 
handle each function code. The table also contains information about privilege state, interrupt disabling, and error 
code requirements for each function code. 

Table 3-2 
Characteristics of Driver Operations 



(1) 


(2) 




(3) 




(4) 




(5) 
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No 


R 


H 







DalarmsSupervisor 


No 
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The columns of Table 3-2 contain the following information: 

(1) FUNCTION CODE is the identifier assigned to this operation in Driverdefs (see Appendix A). The function codes 
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are summarized in Table 3-1 and documented in this chapter. 

(2) PRIVILEGE STATE indicates the setting of the S bit in the processor's status register. Certain assembler language 
instructions are privileged and may be executed only in supervisor state. Your driver should not use privileged 
instructions to process a function code if the operations will be performed in user state. 

(3) DISABLE INTERRUPTS is Yes if the driver must call INTSOFF to protect the Device Control Block from being 
modified by another interrupt while the driver is executing. The call to INTSOFF should set the priority just high 
enough to prevent interrupts from the driver's device. Before returning, your driver must call INTSON to restore the 
interrupt status to its previous priority level. 

Note that when the Dalarms function is invoked, the interrupt priority has already been set to the value that was 
established in the driver's prior call to ALARM_ASSIGN. 

(4) ERR CODE REQUIRED is Yes if the driver must return a value in the integer function-result of the driver function. If 
an error code is not required, the function result need not be assigned a value. 

(5) DRIVER TYPE indicates which function codes a given driver needs to support the types are the following: 

SEQ Sequential device drivers 

DISK Disk device drivers 

DEMX Demultiplexing drivers 

NON-FS Non-File System drivers that use Dcontrol for I/O 

The letters under each driver type indicate whether the driver must support the function code: 

H The HDISK unit supports this operation 

O Optional for this device type (see detailed description of the function code for more information) 

R Required for this device type 

3.2.2 Error Codes 

Your driver may return an error number in the driver function result. If your driver receives a function code that it does 
not recognize, it should return with error number 656 in its function result. In the case of Dinterrupt, Dalarms, and 
Reqrestart, the error number should be placed in the Hard_error field of the Request Block. In the case of a non- 
recoverable data inconsistency, the error should be signaled by calling SYSTEM_ERROR. 

Standard error numbers are indicated throughout this chapter. The following standard error numbers apply to all device 
types: 

660 Cable disconnected. 
666 Device timeout. 

You are free to use other error numbers in the range 1840 to 1879 to represent particular conditions your driver 
expects to encounter. Warnings are indicated by a negative error number in the range -1 879 to -1 840. A warning 
means that the operation was successfully completed under special circumstances. System errors reported by your 
driver must be in the range 1 1 840 to 1 1 879. 

3.3 FUNCTION CODES SHARED BY DIFFERENT DRIVER TYPES 
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The function codes described in this section are used by drivers of differing type. These function codes are 
Dinterrupt, Dinit, Ddown, Dcontrol, Reqrestart, and Dalarms. 

3.3.1 DINTERRUPT Driver Function Code 
function code Dinterrupt 

{Intpar: integer} 

Parameters: 

Intpar: For Serial A & B, contains the interrupt type. 

Operation: Handle a device interrupt 

Drivers: SEQ (R), DISK (R), DEMX (R), NON-FS (R) 
Privilege State: Supervisor 
Must Disable Interrupts: No 
Error Code: Not required 

Your driver is called with the Dinterrupt function code when there is an interrupt for it to handle. For most devices, 
Intpar is zero and has no meaning. For Serial A or Serial B interrupts, Intpar contains a value between and 3 
representing the type of interrupt (refer to read-register 2B in the SCC manual). 

For demultiplexing drivers, Dinterrupt signals you to find out from the interrupting controller which of its several 
devices is the source of the interrupt. You must then invoke its device driver to handle the interrupt by passing the 
same parameter list the demultiplexing driver was called with using the CALLDRIVER procedure. 

Your interrupt handler for the device must: 

o Signal the device to clear the interrupt, 
o Perform the desired I/O transfer, 
o Call OKXFERNEXT (disk devices only), 
o Return. 

The I/O request may require several I/O transfers. When the request has been completed, or if an error was detected, 
your interrupt handler should call IODONE if your driver supports a disk device; for other device types, it should: 

oCall UNBLK_REQ to unblock the process that is waiting for I/O. 

o Call ADJ_IO_CNT to reduce the count of pending I/O requests for the data segment. 

oDEQUEUEthe Request Block from the Device Control Block. 

o If another Request Block for this device is on the queue, initiate the I/O. 

o Return. 

3.3.2 DINIT Driver Function Code 
function code Dinit 

Operation: Initialize a driver 

Drivers: SEQ (R), DISK (R), DEMX (R), NON-FS (R) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 

For the boot device or a device that is configured to be pre-loaded, Dinit is invoked during startup. For other devices it 
is called wither at the time the device is mounted or prior to calling Dcontrol, Dskunclamp, or Dskformatfor 
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unmounted devices. 

To initialize your device driver, you must: 

o Call GETS PACE to acquire space for the driver's Device Control Block (its global data). 

o Store the address of the Device Control Block into Parameters A .Configptr A .Cb_addr. 

o Initialize the Device Control Block. 

o Call ALARM_ASSIGN to reserve any alarms that will be needed while the driver is running. Save the alarm 
numbers that have been assigned to this device during initialization. (You must reserve space for this 
purpose in the Device Control Block.) 

o Prepare the device hardware for operation. This may involve programming the controller's hardware 
registers, reading the device's version number, and so on. 
If the driver encounters an error during initialization, it should reverse the initialization procedure so that the device and 
associated control blocks are returned to the state they were in when the driver was invoked with Dinit function code. 
The function result of the driver should be set to reflect the nature of the error: 

o Error 602 means that alarms were not available from ALARM_ASSIGN. 

o Error 610 means that memory was not available from GETS PACE. 
For disk devices that are supported by the Operating System HDISK unit (see Section 2.5, Disk Driver Support), your 
driver should not perform the functions listed above. Instead: 

oCallUSE_HDISK 

o Call CALL_H DISK 
HDISK will then invoke your driver with function code Hdinit to request disk driver initialization. 

3.3.3 DDOWN Driver Function Code 
function code Ddown 

Operation: Shut down a device 

Drivers: SEQ (R), DISK (H), DEMX (R), NON-FS (R) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 

For devices that are configured to be dynamically loaded and unloaded, Ddown is invoked during unmounting unless 
the Characteristics file for the device specifies that the device is to be permanently mounted. (Chapter 5 tells you how 
to specify characteristics.) Ddown tells your driver to undo everything it did in Dinit. 

Return with Error 60? if the driver is waiting for I/O at the time Ddown is invoked. Otherwise do the following: 
o Call RELSPACE to release the space for the driver's Device Control Block, 
o Set the address of the Device Control Block in Parameters A .Configptr A .Cb_addr to ord(nil). 
o Call ALARMRETURN to release any alarms that were assigned to the driver, 
o Set the device hardware so that it cannot generate an interrupt until Dinit is called again. 

3.3.4 DCONTROL Driver Function Code 
function code Dcontrol 

{Parptr: absptr} 

Parameters: 

Parptr: Address of a Device Control Record 

Operation: Send or receive device-dependent information 

Drivers: SEQ (O), DISK (O), NON-FS (O) 
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Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Required 

For sequential and disk devices, your driver needs to support the Dcontrol function code only if application programs 
will access this device by calling the DEVICE_CONTROL procedure. The application program provides 
DEVICE_CONTROL with a pointer to the Device Control Record, and DEVICE_CONTROL passes the record to 
the driver with the Dcontrol function code. 

Refer to the Operating System Reference Manual for the /./safor information on the DEVICE_CONTROL File 
System call. (Note that the Dctype record described in that manual is the same as the Dc_rec shown below.) If you 
want your driver to be compatible with similar existing OS drivers, support all the DEVICE_CONTROL operations 
documented for that device type in the Operating System Reference Manual. 

Parptr is the address of the Device Control Record, Dc_rec, defined below. The driver and the application program 
must agree upon the use of the Device Control Record; its contents are not checked by the DEVICE_CONTROL 
procedure. 

Dc_rec = record 

Dversion: integer; 
Dcode: integer; 
Ar10: array[0..9] of longint; 
end; 

Dversion is used for application-defined version control between the driver and the application program. Dcode tells 
your driver what status information to get from its device or what control information to send. The Ar1 array is used to 
pass additional device information between the application program that calls DEVICE_CONTROL and the device 
driver. 

Dcontrol may be used for configuring operational characteristics of the driver, such as the baud rate. 

If Dcode requests I/O, your driver must perform the following operations (refer to Section 2.6, Driver-initiated I/O 
Requests, for more information): 

o Create its own Request Block 

o Define a Request Block Extension containing whatever information is needed. 

o Call CVT_BUFF_ADDR, ADJ_IO_CNT, and FREEZE_SEG to freeze the user's data buffer. 

o Call BLK_REQ to wait until the I/O has completed. 
Return error 623 if the contents of Dc_rec are not valid for the device. 

3.3.5 REQRESTART Driver Function Code 
function code Reqrestart 

{Req: reqptr_type} 

Parameters: 

Req: Pointer to Request Block passed to FREEZESEG 

Operation: Restart an I/O request 

Drivers: SEQ (R), DISK (H), NON-FS (O) 

Privilege State: User 

Must Disable Interrupts: Yes 

Error Code: Not required 
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Reqrestart is required by all drivers of sequential or disk devices and by non-File System device drivers that call 
FREEZE_SEG. Reqrestart is invoked by the OS Memory Manager to restart the driver from the point at which a 
FREEZE_SEG request failed because the data was being relocated in memory. If you call FREEZE_SEG from 
more than one place in your driver, you must set a flag to indicate where Reqrestart must restart. 

If your driver uses HDISK, call CALL_HDISK when you are passed a Reqrestart function code. 

3.3.6 DALARMS Driver Function Code 
function code Dalarms 

{Intpar: integer} 

Parameters: 

Intpar: Alarm number 

Operation: Handle an alarm interrupt 

Drivers: SEQ (O), DISK (O), NON-FS (O) 
Privilege State: Supervisor 
Must Disable Interrupts: No 
Error Code: Not required 

Your driver needs to respond to the Dalarms function code only if the driver calls ALARMRELATIVE. Dalarms is 
invoked when an alarm set by ALARMRELATIVE goes off. Intpar contains the alarm number. 

Alarms can be used to handle interrupts that require a long time to process. See Lengthy Interrupt Processing, 
Section 2.3.4. 

3.4 FUNCTION CODES FOR SEQUENTIAL DEVICES 

The following function-codes are called only for drivers of sequential devices. Sequential devices are accessed as a 
sequence of bytes; their drivers make no provision for storing and retrieving files at different locations on the device. 
Applications that require sequential device drivers include data communications and printing. 

3.4.1 SEQIO Driver Function Code 
function code Seqio 

{Req: reqptr_type} 

Parameters: 

Req: Pointer to the I/O Request Block. 

Operation: Input/output to a sequential device 

Drivers: SEQ (R) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Required 

Seqio is invoked during I/O to a sequential device when READ_DATA or WRITEDATA is called to transfer a 
sequence of bytes from or to a sequential device. Req points to an initialized I/O Request Block as described in 
Request Block initialization, Section 2.4.1. Seqio must call ENQUEUE to place the Request Block at the end of the 
Request Block queue for the device. If there are no other requests currently in progress, the driver can then initiate 
the I/O transfer for this request. If another I/O request for the device is in progress, the driver will initiate the I/O transfer 
for this request when it completes all prior requests in the queue. 
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3.4.2 DDISCON Driver Function Code 
function code Ddiscon 

Operation: Modem disconnect 

Drivers: SEQ (O), NON-FS (O) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Not required 

Ddiscon is invoked when CLOSE_OBJECT is called for a sequential device or when a process aborts without 
closing an open sequential device. If your driver controls a device attached to a modem, disconnect the modem from 
the line. For other sequential devices, your driver should return immediately after receiving the Ddiscon function 
code. 

Note that the driver is not called during O P E N for sequential devices. The application program should initialize modem 
control by calling DEVICE_CONTROL from the application program when opening the device. 

3.5 FUNCTION CODES FOR DISK DEVICES 

The operations described in this section are performed only by drivers of Lisa-format random-access disk devices. 

Most disk devices can use the facilities of the HDISK unit in the Operating System to perform the standard operations 
required for function codes Dinit, Ddown, Reqrestart, and Dskio. (See Appendix A for a listing of HDISK.) 
These operations include managing the Request Block queue and processing the File System headers that precede 
each 512-byte block of data on the disk. HDISK contains the six routines described below. 

Called directly by the disk driver (described in Chapter 2): 

oXFERINIT 
olODONE 

Called by the OS when the disk driver calls CALL_HDISK (your driver should pass to CALL_HDISK the same 
parameters with which it was called): 

o INIT for Dinit function code 

o DOWN for Ddown function code 

o REQRESTART for Reqrestart function code 

o DSKIO for Dskio function code 

Standard error numbers for disk drivers are: 

606 Can't find sector (disk may be unformatted). 

614 No disk present in drive. 

617 Checksum error in data - no data returned. 

616 Cannot format disk. 

654 Unspecified hard I/O from disk controller. 

-663 Read with data returned - some data may be okay, but a checksum, CRC, or parity error was 

detected. 

1824 Write failed. 
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3.5.1 DSKIO Driver Function Code 
function code Dskio 

{Req: reqptr_type} 

Parameters: 

Req: Pointer to the I/O Request Block. 

Operation: Input/output to a disk device 

Drivers: DISK (H) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Required 

Dskio is invoked by READ_DATA and WRITE_DATA to access a disk file. The File System also invokes this 
function to maintain its internal directory structures while performing file operations such as OPEN and 
CLOSE_OBJECT. Req points to an initialized I/O Request Block. 

When Dskio is invoked, your driver should call CALL_HDISK, passing it the parameters with which it was invoked. 
CALL_HDISKwill then invoke HDISK to handle the I/O request. 

3.5.2 DSKUNCLAMP Driver Function Code 
function code Dskunclamp 

Operation: Eject a disk from the disk drive 

Drivers: DISK (O) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Required 

If the disk device has a removable disk, eject the disk when Dskunclamp is invoked; otherwise return immediately 
with error 685. 

If the device will send an interrupt to signal that the eject has completed, it may be necessary for Dskunclamp to 
create a Request Block. Refer to Section 2.6, Driver-initiated I/O Requests. 

3.5.3 DSKFORMAT Driver Function Code 
function code Dskformat 

Operation: Format a disk device 

Drivers: DISK (O) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Required 

Your driver needs to handle this function code only if the disk device formats its media; otherwise the driver may return 
immediately. Dskformat may be invoked when the user mounts a disk that cannot be read or when the application 
receives a request to erase everything on the disk. 

Dskformat initiates the format operation by signaling the device's intelligent controller. The driver must create a 
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Request Block for this operation and call BLK_REQ to wait until the format operation has completed. Refer to 
Section 2.6, Driver-initiated I/O Requests. 

3.5.4 HDINIT Driver Function Code 
function code Hdinit 

{Req: reqptr_type} 

Operation: Initialize a disk device-driver 

Drivers: DISK (R) 
Privilege State: User 
Must Disable Interrupts: No 
Error Code: Required 

Hdinit is invoked by the INIT routine within HDISK. Your disk driver must perform the following operations when 
invoked with the Hdinit function code: 

To initialize your device driver, you must: 

o Call GETSPACE to acquire space for the driver's Device Control Block extension, 
o Store the address of the extension in the Ext_ptr field of the Device Control Block. 
oCall ALARMASSIGN to reserve any alarms that will be needed while the driver is running. Save the alarm 
numbers that have been assigned to this device during initialization. (You must reserve space for this purpose in 
the Device Control Block.) 
o Initialize the disk controller hardware so that read and write commands can be sent. 

If the driver encounters an error during initialization, it should reverse the initialization procedure so that the device and 
associated control blocks are returned to the state they were in when the driver was invoked with Hdinit function 
code. The function result of the driver should be set to reflect the nature of the error: 

o Error 602 means that alarms were not available from ALARMASSIGN. 

o Error 610 means that memory was not available from GETSPACE. 

3.5.5 HDDOWN Driver Function Code 
function code Hddown 

{Req: reqptr_type} 

Operation: Shut down a disk device 

Drivers: DISK (R) 
Privilege State: User 
Must Disable Interrupts: No 
Error Code: Required 

HDISK invokes Hddown so that your driver can undo everything it did in Hdinit: 

o Call RELSPACE to release the space for the driver's Device Control Block extension. 

o Set the address of the Device Control Block extension in Ext_ptr to ord(nil). 

oCall ALARMRETURN to release any alarms that were assigned to the driver. 

o Set the disk device controller so that it cannot generate an interrupt until Hdinit is invoked again. 

3.5.6 HDSKIO Driver Function Code 
function code Hdskio 

{C_cmd: integer; C_sector: longint} 
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Parameters: 

C_cmd: 
C_sector: 

Operation: Perform an I/O transfer 

Drivers: DISK (R) 
Privilege State: User 
Must Disable Interrupts: No 
Error Code: Required 

HDISK invokes the disk driver with function code Hdskio to begin an I/O transfer; that is, Hdskio reads or writes a 
group of contiguous 51 2-byte blocks. Options in the lo_mode field of the Request Block extension allow you to 
transfer the blocks with or without their 24-byte headers. lo_mode options are described in Section 2.4.1 , Request 
Block Initialization. Headers are described in the Pagelabel type in Driverdefs, listed in Appendix A. 

During each interrupt of the I/O transfer, your driver must call OKXFERNEXT to update the headers; when the 
transfer is complete, it must call IODONE. (See Disk Driver Support, Section 2.5, for further information.) 

3.7 FUNCTION CODES FOR DEMULTIPLEXING DRIVERS 

The operations described in this section are performed only by demultiplexing drivers -- those that call lower-level 
drivers. See Chapter 1 for a description of driver hierarchy and the role of demultiplexing drivers. 
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3.6.1 DATTACH Driver Function Code 
function code Dattach 

{N_configptr: ptrdevrec} 

Parameters: 

N_configptr: Pointer to Device Configuration Record of new device. 

Operation: Associate a driver with this demultiplexing driver 

Drivers: DEMX (R) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Required 

Demultiplexing drivers are drivers that dispatch interrupts for more than one device. (See Figure 1-4, Communication 
between Drivers.) Dattach enables the demultiplexing driver to service the interrupts of the devices whose drivers it 
attaches. In general, Dattach is invoked immediately after the Dinit call to the demultiplexing driver. Then, as each of 
its devices gets initialized, the demultiplexing driver is invoked with Dattach to attach the device driver for the new 
device. That is, Dattach is invoked once for each device associated with the demultiplexing driver. 

When an interrupt for an attached device is received, the demultiplexing driver calls the lower-level driver using the 
CALLDRIVER procedure described in Chapter 2. 

N_configptr points to the Device Configuration Record of a new device being attached to this driver. 

3.6.2 DUNATTACH Driver Function Code 
function code Dunattach 

{0_configptr: ptrdevrec; StilMnuse: boolean} 

Parameters: 

0_configptr: Pointer to Device Configuration Record of new device. 
StilMnuse: True if other devices remain attached; False if none. 

Operation: Disassociate a driver from this demultiplexing driver 

Drivers: DEMX (R) 
Privilege State: User 
Must Disable Interrupts: Yes 
Error Code: Not required 

Dunattach is invoked when a device associated with the demultiplexing driver is invoked with Ddown function code. 
0_configptr points to the Device Configuration Record for the device being disassociated. 

Dunattach must set StilMnuse to true if other devices remain attached to the demultiplexing driver. If no devices 
remain attached, StilMnuse must be set to false so the calling routine can invoke Ddown. 

3.7 DRIVERS FOR BOOTABLE DEVICES 

{ To be documented by Jay Walton. 

By the time we release the alpha draft (around 1/11/84), we should have a definite decision on 
whether configurable drivers for bootable devices will be supported for spring release. 
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Please advise.} 
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HARDWARE INTERFACE 

Chapter 4 supplements the Lisa Hardware Manual and Lisa Theory of Operations with hardware documentation 
relevant to device drivers. You need to become familiar only with those sections of the chapter that contain information 
about the particular device interface your driver uses. 

4.1 SYSTEM CLOCK RATES 

The 68000 is driven by a 20.375 MHz crystal divided by 4, yielding a 5.09375 MHz clock; the clock rate is therefore one 
cycle every 196.319 nanoseconds, while it may be impossible to compute exact execution times, you can use this 
clock to compute an approximate execution time for a given section of code. 

Your calculation should round up the published 68000 instruction execution-cycle times to a value n+x (where n is the 
number of cycles and x is 0, 1 , 2, or 3) such that n+x is a multiple of 4. Rounding is necessary because of wait states 
the Lisa uses to handle the video memory. The pipeline architecture of the 68000, which pre-fetches instructions, 
makes even this calculation imprecise. In addition, when accessing the address space of a 6522, the 68000 inserts 
wait states in order to synchronize with the 6522 clock. 

4.2 THE SERIAL COMMUNICATIONS CONTROLLER (SCO 

The Serial Communications Controller is described in Zilog's SCC Technical Manual. The Lisa Hardware Manual 
(Sections 2.5.2, 3.5.1 , and 6.4) also includes information about the operation of the SCC in Lisa. 

4.2.1 SCC Timing 

Two consecutive accesses to the control register address are necessary to read or write data to internal registers 1 
through 15. Therefore you should disable SCC interrupts during consecutive accesses. 

The 68000 CLR instruction accesses the target address twice during a single instruction. The Lisa's Assembler 
optimizes the MOVE #0 instruction to CLR. Therefore don't use CLR or MOVE #0 instructions when writing to the 
SCC. The Lisa's Pascal Compiler generates a CLR instruction when you assign zero to a variable. Therefore if you 
code an SCC interface in Pascal, do not assign zero directly to an SCC control register; first assign zero to a variable, 
then assign the variable to the SCC address. 

A recovery time of 6 CPU cycles is required between consecutive accesses. The Pascal Compiler usually generates 
code that provides sufficient recovery time. However, if you use WITH statements to optimize SCC accesses, you may 
need to insert some delay between accesses. 

If your driver is written in assembler language, provide recovery time by inserting one or two NOP instructions between 
contiguous instructions that access the SCC. 

4.2.2 Other Information Related to the SCC 

Asynchronous I/O can occur on either port A or B. The following characteristics are unique to each port: 

o Port A 

o accomodates synchronous communications. 

o accomodates SDLC/HDLC. 

o provides full RS-232C modem control. 

o Port B 

o accomodates Applebus. 

4.2.2.1 Cable Connections 
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The Lisa Hardware Manual (Figure 3-7) shows the cable signals for the DB-25 connector. Cable signal names are the 
same as SCC Pin names except for the following: 



CABLE SIGNAL CONNECTS TO SCC PIN 



RxC(A) RTxCA 

TEXT(A) & TxC(A) TRxCA 

DSR(A) SYNCA (and DCDB on hardware after 1 .0) 

DSR(B) CTSB/ 

Apple's modem eliminator cable connects the following signals (dashed lines indicate wires; arrows show the direction 
of information flow along the wires): 

GROUND GROUND 

SEND > RECEIVE 

DTR > DSR 

DSR < DTR 

RTS ) > DCD 

CTS <-) 

DCD < ( RTS 

(-> CTS 

4.2.2 Register Usage 

Registers 2 and 9 are shared between ports A and B. The following restrictions apply: 

o Never write to register 2. 

o Write to register 9 only when performing a reset operation. To reset SCC Port A or Port B, write calue $8A or $4A to 
register 9 during Dinit and Ddown. 

The DCD-B bit indicates the state of the signal on the wire it monitors. Never enable interrupts on DCD-B because this 
signal belongs to Port A although it is read on port B. (Refer to the description of register 15 in the SCC Manual). 
When Port A is in synchronous or SDLC modes, it may read DCD-B to determine the state of signal DSR on Port A's 
connector (not available on Lisa 1 .0). 



Set RTS-B to except when using Applebus. 



4.3 THE 6522 PARALLEL PORT 

You can the cycle times provided in this section to calculate timing for the pulse mode handshake and to compute data 
throughput rates. On Lisa 1 .0, the 5.09375 MHz clock time is therefore 1 963.1 9 nanoseconds. The same 1 963.1 9 
nanosecond clock drives the 6522s on the Sony disk-drive card and the internally released four-port card. The cycle 
time for the 6522s on Lisa 2.0's I/O board, and the two-port card is 785.276 nanoseconds (derived from 68000 cycle 
time divided by 4). To summarize: 

LISA 1.0 LISA 2.0 

I/O board 6522 1 963.1 9 ns 785.276 ns 

2-portcard 785.276 ns 785.276 ns 

4-portcard 1963.19 ns 1963.19 ns 
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Sony 6522 1963.19 ns 1963.19 ns 

4.3.1 Using the 6522 Pulse Mode Handshake 

When outgoing data is on the data bus, a pulse on a separate handshake line indicates that the data is ready for the 
receiver to read. The pulse mode is used to strobe outgoing data to a peripheral device or to acknowledge receipt of 
incoming data from a peripheral device. It is possible, however, for the 68000 to drive the 6522 faster than it can handle 
the pulse handshake, causing the data to be accessed before completion of the pulse from the previous access. 
Calculation of the minimum number of 6522 cycles allowed between read or write commands that utilize pulse mode 
handshake is shown below, using a Profile driver as an example. 

For writing to a Profile, the number of 6522 cycles between consecutive writes is n, where n must satisfy the inequality: 

n * clock-rate > T(dcw) + 1 .5 * clock-rate + T(rs3) + device-latency 

where T(dcw) = 300 ns, as stated in the 6522 Data Sheet; 

T(rs3) = 1 000 ns, as stated in the 6522 Data Sheet; 

clock-rate = 1963.19 ns or 785.276 ns, depending on which 

6522 is being used; 
device-latency = 100 ns for Profile. 

For reading from a Profile, the number of 6522 cycles between consecutive writes is n, where n must satisfy the 
inequality: 

n * clock-rate > T(pcr) + 1 .5 * clock-rate + T(rs1) + device-latency 

where T(pcr) = 300 ns, as stated in the 6522 Data Sheet; 

T(rs1 ) = 1 000 ns, as stated in the 6522 Data Sheet; 

clock-rate = 1963.19 ns or 785.276 ns, depending on which 

6522 is being used; 
device-latency = 600 ns for Profile. 

Thus for both reading from and writing to a Profile, n >= 4 on the fast 6522 and n >= 3 on the slow 6522. Four cycles of 
the fast 6522 can be generated by separating consecutive reads or writes by between 10 and 13 cycles of the 68000 
(inclusive of the read or write command). Likewise, three cycles of the slow 6522 can be generated by separating 
consecutive reads or writes by between 14 and 21 cycles of the 68000. Therefore to code a Profile driver that will 
accomodate both fast and slow 6522s, insert instructions requiring at least 14 cycles of the 68000 between 
consecutive reads and writes within the driver. 

4.3.2 Parallel Port Differences 

The Lisa contains one built-in parallel port. You may also connect a two-port card containing two parallel ports or an 
internally released four-port card containing three parallel ports plus a fourth non-standard port. Each parallel port is 
controlled by a 6522. The differences between the ports are highlighted here. The remarks below assume familiarity 
with the 6522 data sheet and the Lisa Hardware Manual (Sections 2.5.3, 3.5.2, and 6.5). 

On the built-in port, the CHK signal enters as a keyboard event; on the two-port or four-port card, the CHK signal enters 
on the CB1 line of each port. 

The diagnostic PARITY line is not accessible on the built-in parallel port but may be read on PB6 on either port of the 
two-port card or the first two ports of the four-port card. 
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When writing to a register of a 6522 parallel port, it is important to change only the bits you want to set. Therefore, the 
instructions ANDI.B, ORI.B, BSET, and BCLR should be used instead of MOVE.B whenever writing to registers 
ORB, DDRB, ACR, and PCR. IFR and IER are discussed below. 

The following bits should never be changed on the built-in parallel port: 

Register Bits 



DRB 


5,6,7 


DDRB 


5,6,7 


T1C-L 


all 


T1C-H 


all 


T1L-L 


all 


T1L-H 


all 


SR 


all (never read this register either) 


ACR 


2,3,4,6,7 


PCR 


4 


IFR 


2,6 


IER 


0, 2, 3, 4, 6 



Bits through 4 of a parallel port's B register are used differently, depending upon whether a ProFile disk or a 
Centronics-compatible dot matrix printer (such as the C.ltoh 851 0A) is attached. All parallel ports treat bits through 4 
similarly. Following is a description of the use of these bits, as well as CA1 , CA2, and CB2 of the IFR register. 



Bit # 


Direction 


ProFile Parallel Printer 


PBO 


in 


cable detect (1 = disconnect) paper empty (1 = PE) 


PB1 


in 


BSY state (0 = busy) acknowledge (0 = ACK) 


PB2 


out 


set = always set = always 


PB3 


out 


read (= 1 )/write(= 0) dir. set = 1 always 


PB4 


out 


CMD (0 = CMD true) don't care 


CA1* 


in 


BSY latch (from PB1 ) ACK latch (from PB1 ) 


CA2 


out 


data strobe data strobe 


CB2 


in 


parity error latch ignored 



* Bit of PCR controls whther CA1 will latch rising ot falling edge of PB1 . 

The CB2 parity error latch that will be cleared by any read or write to the B register. Therefore check disk parity before 
making any reference to the B register. 

Writing a one to a bit that is already one in the 6522 IFR and IER registers may change the bit to zero. Therefore 
MOVE.B is the only instruction that should be used when writing to IFR or IER. Do not use the commands AND, 
ANDI,OR,ORI,BSET,orBCLR. 

The 6522 that controls the Lisa's keyboard has some of the signals which belong to the built-in parallel port. Table 4-1 
describes the use of the following bits on the keyboard 6522 as they pertain to the parallel port: PB5 and PB7 (bits 5 
and 7 on the B register) and DDRB5 and DDRB7 (bits 5 and 7 of data direction register B). The adress pairs given in 
parentheses in the table result in references to the same location. This is because address bits 6, 7, and 8 were used 
in early Lisa prototypes but are currently ignored. 
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Table 4-1 



DDRB7 



PB7 



Bit Settings with Disk Attached 
DDRB5 



Built-in Parallel: 

leave as input ignore leave as input ignore 

(FCD811/FCD911) (FCD801/FCD901) (FCD81 1/FCD91 1) 



PB5 



(FCD801/FCD901) 



6522 Keyboard: 
output 
(FCDC05/FCDD85) 

Two-port/four-port Parallel: 
output 
(FCXX11) 



set to 1 output normally 1, 

(FCDC01/FCDD81) (FCDC05/FCDD85) resets parity 

(FCDC01/FCDD81) 

set to 1 output normally 1, 

(FCXX01 ) (FCXX1 1 ) resets parity 

(FCXX01 ) 



Bit Settings with Printer Attached 
DDRB7 PB7 DDRB5 

Built-in Parallel: 

leave as input ignore leave as input ignore 

(FCD811/FCD911) (FCD801/FCD901) (FCD81 1/FCD91 1) 



PB5 



(FCD801/FCD901) 



6522 Keyboard: 
output 
(FCDC05/FCDD85) 

Two-port/four-port Parallel: 
output 
(FCXX11) 



set to 1 input SELECT(1=online) 

(FCDC01/FCDD81) (FCDC05/FCDD85) (FCDC01/FCDD81) 



set to 1 
(FCXX01 ) 



output 



(FCXX11) 



SELECT (1=online) 
(FCXX01) 



To determine the value of XX in addresses FCXX01 and FCXX1 1 in Table 4-1 , consult Table 4-2. Channel 1 refers to the 
bottom XX; channel 2 refers to the top XX; channel 3 is accessible with the back off on a four-port card only. 









Table 4-2 








chan 1 


chan 2 


chan 3 


slot 1 




20 


28 


30 


(outer) 










slot 2 




60 


68 


70 


(middle) 










slot 3 




A0 


A8 


BO 


(inner) 










4.4 PERIPHERAL 


CARDS 
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The Lisa's three I/O slots support peripheral cards as well as devices. If a card can support more than one device, a 
demultiplexing driver is required for the card and one driver is required for each type of device supported by the card. 
This section describes hardware requirements for Lisa peripheral cards. 

Each peripheral device (or its controller) should have a separate interrupt-enable latch that operates under software 
control. When disabled, this latch should hold pending any interrupt, without signaling the interrupt. When the latch is 
enabled, any previously pending interrupts should be signaled. (The Interrupt Enable Register on the 6522 VIA 
provides this function.) In addition, a system reset must disable the device controller so that no interrupts are possible 
until the driver has enabled interrupts on the device. 

Any operation that may take the device more than about one millisecond should cause an interrupt upon completion. 
The driver should poll for this completion condition. 

Writing a device driver can be greatly simplified if the device handshake sequence has only one point at which an 
interrupt is required. For example, it is preferable to have the driver wait for SEEK and WRITE at the same time on a 
disk device, rather than waiting for the SEEK to complete before being able to start up the WRITE. 

Disconnecting the cable to a device should cause an interrupt that the driver can respond to. If this is not possible, the 
controller should provide an interval timer interrupt to allow the driver to poll for disconnection. 

Any hardware configuration parameters should operate under software control. 

If the device is bootable, its controller must support the conventions adopted in the Lisa Boot ROM. 

Each Lisa peripheral card must be self-identifying. 

4.5 PRINTERS 

Printer programs execute as a shared intrinsic unit within the applications. The printer programs are responsible for 
creating the appropriate sequence of ASCII bytes to hand off to the OS using WRITE_DATA. By calling MOUNT, 
UNMOUNT, OPEN, CLOSE_OBJECT,WRITE_DATA, and DEVICE_CONTROL, printer programs can 

communicate with a serial or parallel interface port on the Lisa. Special printer drivers that control letter quality, dot 
matrix, laser, and plotter printing are not within the scope of this manual. 

The serial or parallel interface driver within the Operating System is responsible only for making sure that the data is 
sent to the printer without overrunning the device. Handshake protocols provided by the OS include: 

o Delay after CR, LF. 

o Hardware handshake. 

o XON/XOFF software handshake. 

Through DEVICE_CONTROL, the handshake protocol, the modem control, parity, byte length, baud rate, and 
other device characteristics of the printer can be set by the printer program. 

4.6 BUILT-IN DEVICES 

Drivers for the mouse, speaker, interval timer, alarm, and clock/calendar are built in and are not configurable. Drivers for 
built-in disk drives, built-in serial ports, keyboard, and screen are configurable, since these devices can be accessed 
using READ_DATA or WRITE_DATA. 
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Chapter 5 
SPECIFYING CHARACTERISTICS FOR A NEW DRIVER 



5.1 The Installation Disk 

5.2 The CDCHAR Program 

5.3 The Preferences Tool 



Page 57 of 141 



Device Drivers Manual Alpha Draft -- 1 1 January 1984 

SPECIFYING CHARACTERISTICS FOR A NEW DRIVER 

5.1 THE INSTALLATION DISK 

The installation disk is used by the end user in conjunction with the Preferences tool to install a driver for a new device. 
The installation disk contains the driver code file, the Characteristics file, and for bootable devices only, a loader file. 
This software must all be contained on a single installation disk. 

The driver code file is the configurable driver program you have written to support a new device or group of devices. 

The Characteristics file contains information about your configurable driver that is needed by the Lisa Operating 
System. You create the Characteristics file by means of the CDCHAR program described in this chapter. 

The loader file contains the program for booting the system from the new device; it should have the same name as the 
driver code file with extension .BT. 

Figure 5-1 shows the steps necessary to make a configurable driver available on a new system. 
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WRITE 

CONFIGURABLE 

DRIVER 



I 



DEFINE 

DRIVER 

CHARACTERISTICS 

VIA 

CDCHAR 



DRIVER CODE 
FILE 



I 



CHARACTERISTICS 
FILE 



End User 




INSTALL 

VIA 

PREFERENCES 





Insert installation 




disk for new device. 


2. 


Install new driver. 


3. 


Specify Device 




Connections for 




new driver. 



FIGURE 5-1 



Figure 5-1 . Specifying Driver Characteristics. 
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5.2 THE CDCHAR PROGRAM 

The CDCHAR program asks you questions about your configurable driver and saves the answers in the Characteristics 

file, which is used by the end user when installing the configurable driver. 

The CDCHAR program is supplied with the Lisa Operating System. To run the program, use the Run command in the 
Workshop. The CDCHAR dialog is as follows: 

Driver name? 

Respond with the name you want the end user to see in the Device Connections table of the 
Preferences tool; for example, 

Laser Printer 
The driver name may contain spaces; it must not be more than 22 characters long. Note that two or more 
devices with the same driver name may not be configured on the same Lisa. 

Unique id? 

Supply the permanent identification number for your driver. This number must be assigned to you by 
Apple Computer. (Numbers 1 through 128 are freely available to you for the purpose of testing your 
driver.) 

Any default info for PM's extension words? 

Indicate yes or no. If yes, you are prompted for up to three words of device-specific information that will 
be stored in parameter memory whenever the configurable driver is loaded. Each word is a number 
between and 65535. This information is optional and is ignored by the Operating System. The end 
user can override this information at installation time by means of the Preferences tool. 

Device type [1 = sequential, 2 = disk, 3 = demultiplexing]? 

Specify whether your device is sequential, disk, or demultiplexing. 

Is the device bootable? 

Indicate ues or no. If yes, supply a loader file on the installation disk; the loader file contains the program 
for booting the system from the new device. (This question is asked only for disk devices.) 

Removable media? 

Indicate yes or no. (This question is asked only for disk devices.) 

Ejectable media? 

Indicate yes or no. If yes, the driver program must support the Dskunclamp function code. (This question 
is asked only for disk devices with removable media.) 

Address of boot track blocks? 

Indicate the block number where the boot tracks should continue. If you specify zero, the boot tracks do 
not skip any blocks before beginning the first File System block. (This question is asked only for disk 
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devices.) 

Address of the first File System block? 

Indicate the absolute block number of the first File System block. (This question is asked only for disk 
devices.) 

Should the driver be preloaded? 

Indicate yes or no. If the driver is preloaded -- loaded at boot tiem -- the first acess of the device will be 
slightly faster. (This question is nor asked for demultiplexing drivers or for disk drivers with removable 
disks.) 

Should the driver stay resident, once loaded? 

Indicate yes or no. If yes, the driver remains in memory when the device is unmounted. (This question is 
not asked for demultiplexing drivers or for disk drivers with removable disks.) 

CDCHAR now lists the data you have entered so that you can verify it. 

Is all this correct? 

If no, you may enter the data again. If yes, the Characteristics file is created. 

Characteristics file destination disk (e.g, -MYDISK)? 

Specify the name of the installation disk. 

5.3 THE PREFERENCES TOOL 

The Preferences tool is used by the end user to install a configurable driver, using the installation disk described 

above. To install a new device, the end user must follow these steps: 

1 . If the device requires one or more new hardware cards, power 
down the Lisa and insert the cards. 

2. Power up the Workshop or the Office System and open 
Preferences. 

3. Insert the installation disk in the built-in microdisk slot. 

4. Let Preferences install the driver on the installation disk. 
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Chapter 6 
HOW TO MAKE A DEVICE DRIVER 

6.1 Editing 

6.2 Compiling and Assembling 

6.2.1 Assembler Language Considerations 

6.2.2 Pascal Considerations 

6.3 Linking 

6.4 Installing a New Driver 

6.4.1 Installing the OS 

6.4.2 Copying Files 

6.4.3 Running the Build Macro 

6.4.4 Installing the Driver 

6.5 Testing and Debugging 

6.5.1 TRACE Function 

6.5.2 Getting Control during OS Startup 
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HOW TO MAKE A DEVICE DRIVER 

6.1 EDITING 

Use the Lisa Workshop for writing and editing your driver. 

6.2 COMPILING AND ASSEMBLING 

This section discusses assembler language and Pascal conventions for drivers. 

6.2.1 Assembler Language Considerations 

If your driver contains assembler language code, the Workshop Assembler can generate the object files needed for 
linking. All assembler language programs must conform to the Pascal parameter-passing and register-usage 
conventions described in the Assembler chapter of the Workshop manual (Sections 6.3 and 6.6). The declaration of 
an EXTERNAL assembler language routine in your driver must occur within the IMPLEMENTATION portion of the unit, 
at the outermost level (not within a subroutine). We recommend that you prefix all object-code file names with 
OBJECT/. 

6.2.2 Pascal Considerations 

A device driver must contain a Pascal unit like the one in Figure 6-1 . If you code your driver in assembler language for 
efficiency, the assembler language driver must perform as though it were this Pascal program. 



UNIT <driver unit name>; 

INTERFACE 
USES 
(*$U object/driverdefs.obj*) 

driverdefs, 
(*$U object/driversubs.obj*) 

driversubs; 

function DRIVER (parameters: param_ptr): integer; 

IMPLEMENTATION 
CONST ... 
TYPE ... 

declarations of external assembler-language subroutines, if any> 
<internal Pascal subroutines go here> 

function DRIVER; 
CONST ... 
TYPE ... 
VAR ... 
<internal Pascal subroutines may go here> 

begin 

DRIVER := 0; (*no errors yet*) 
case parameters A .fnctn_code of 

dinterrupt: ... 

dinit: ... 

ddown: ... 

dskunclamp: ... 
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dskformat: ... 
seqio: ... 
dskio: ... 
dcontrol: ... 
reqrestart: ... 
dattach: ... 
dunattach: ... 
ddsicon: ... 
dalarms: ... 
hdinit: ... 
hddown: ... 
hdskio: ... 

otherwise DRIVER := <error code> 
end (* case *) 
end; (* driver*) 
end. (* unit *) 

Figure 6-1 . A Skeleton Driver Program. 

For Pepsi release only, every driver must be linked with a dummy main program shown in Figure 6-2. This program is 
never executed; it is required so that the Linker will mark your configurable driver as an executable program. 



PROGRAM DUMMYMAIN; 
USES 

(*$Uobject/driverdefs.obj*) 
driverdefs, 
(*$Uobject/driversubs.obj*) 
driversubs, 
(*$ Uobj ec\/your-driver-unit's-file . obj *) 
your-unit-name, 
VAR 

i: integer; 
p: param_ptr; 
begin 

i := driver(p); 
end. 



Figure 6-2. A Dummy Main Program. 

To limit the size of the Pascal library (osint.paslib.obj) linked with each driver, limit your use of Pascal functions to the 
following: 

ABS, CHR, DIV, EXIT, MOD, MOVELEFT, ODD, ORD, ORD4, POINTER, PRED, SIZEOF, 
SUCC 

You can reduce the memory requirements of your driver by avoiding sets, console I/O, (READ, READLN, WRITE, 
and WRITELN), string procedures, and procedures dealing with packed array of char. 

Pascal dynamic allocation (NEW), real variables, and general I/O routines provided by the Pascal language are not 
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supported by the Pascal libraries linked with drivers. 

Do not use the $S compiler directive. Your driver must reside entirely within the blank segment. 

6.3 LINKING 

Each driver is linked so that it is contained entirely, within the non-intrinsic blank segment, which is the default segment. 
The first object file linked with the driver is an assembler language file whose first instruction is a J MP to the driver 
function subroutine. The driver is also linked with a main Pascal program called drivermain.obj which, though never 
executed, tricks the Linker into resolving all references as thought the output of the linkage were a stand-alone, 
executable program. 

Using the Workshop's Linker, link together the following modules: (driverasm must be first; the others may be in any 
order): 

object/driverasm.obj 

object/ your-driver-unit's-t He. obj 

object/ your-other-driver-subroutines. obj 

ob'\ecll your-dummymain-file.ob'\ 

object/osintpaslib.obj 

6.4 INSTALLING A NEW DRIVER 

This section describes the steps you must take in order to install a new configurable driver. Follow these steps in the 
sequence shown. 

6.4.1 Installing the OS 

Be sure you have version 8.1 or above of the Operating System. Then install this version on a test disk, not on your 
Workshop boot disk. 

6.4.2 Copying Files 

Move the following files from the test drive to your Workshop prefix volume. 

build/assemb.text 

build/comp.text 

build/link. text 

object/driverasm.obj 

object/driverdefs.obj 

object/driversubs.obj 

object/osintpaslib.obj 

Edit, rename, and copy the following files to your Workshop prefix volume. 

build/rsgen.text 

(example of compile/link macro for driver) 
build/rslinklist.text 

(example of Linker input list) 
source/rs232main.text 

(example of dummy main program) 

6.4.3 Running the Build Macro 

Run your new build macro (based on build/rsgen.text). A macro is a file containing commands to be executed by 
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the Workshop. 



6.4.4 Installing the Driver 

Copy your driver to the test disk and boot from the test disk. Then follow these steps to replace an existing driver. An 

RS232 driver is given as an example. (Only RS232 drivers are configurable for Pepsi release.) 

If you are replacing an existing driver, 

Issue an UNMOUNT command for the device, RS232A. 

* Rename the existing driver on the test disk, system .cd_rs232a 
to some temporary file name. 

* Rename your driver to system. cd_rs232a, the name the existing 
driver had. 

* Issue a MOUNT command for RS232A, the device your driver 
supports. Your new driver will be invoked. 

Table 6-1 contains a list of devices supported under version 8.1 of the Lisa Operating System together with their driver 
name. 

Table 6-1 
Currently Supported Drivers (OS Version 8.1) 



Device Driver Name 

Serial Port A system. cd_rs232a 

Serial Port B system. cd_rs232b 



6.5 TESTING AND DEBUGGING 



You can debug your device driver by writing messages to the screen with WRITELN, by using LisaBug, or by a 
combination of these techniques. You can call WRITELN to display the contents of variables at various states in the 
execution of a driver. 

You may want to turn these debugging features on and off. WRITELN commands can be selectively executed using 
the TRACE function described below or they can be selectively compiled by using compile-time conditional 
compilation directives described in the Workshop manual. 

Other procedures and functions that are useful during program development are MICROTIMER, LOG, and 
LOGGING, discussed in Chapter 2. 

6.5.1 TRACE Function 

function TRACE (Part: osportion; Level:integer):boo/ean 

Input Parameters: 

Part: Always 'DD'. 

Level: 0..99, value to compare to the trace fence. 

Output Parameters: 

TRACE: True if the trace fence is <= Level; else false. 

Your driver can call the TRACE function to test a trace fence in the OS indicating whether WRITELN commands 
should be executed. The trace fence for device drivers is an integer located at location $220 from domain 0. (All 
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drivers execute in domain 0.) You can change the trace fence at execution time by using the LisaBug commands Set 
Memory or Set Word. 

The TRACE function returns true when the trace fence is set to a value less than or equal to Level. In debug 
statements, you want to appear in all or most instances, set Level to a high value. For device drivers, Part must 
contain the letters 'DD'. 

The TRACE function is used in a Pascal statement like the following: 

if TRACE('dd', 60) then WRITELNfdebug message") 

In the example above, if the trace fence is 60 or less, the debug message will be printed. 

6.5.2 Getting Control During OS Startup 

Some driver function codes are invoked during startup. To test them, you will need: 

* OS version 5.4 (or later). 

CPU boot PROM $117 (or later). 

* A copy of LisaBug (file system. debug) on your boot volume. 

The OS loader chooses whether to bring the OS up in 'debug mode', based on the value of location $1 0000. The 
PROM normally initializes all of memory to -1 , so a -1 in that cell means run without debug mode. In order to select 
debug mode, you must modify location $1 0000 to a value other than -1 before the loader gets control. Here's how: 

1. Reboot from the PROM. 

2. Press the Apple and numeric-key-pad Enter keys simultaneously at the point where you would normally 
request a boot device selection. 

3. When the PROM presents a menu for 'restart', 'continue', or 'startup from', press the Apple and S keys 
simultaneously: this selects service mode. 

4. Use the Set Memory command (by typing 2 ) to store in memory location $1 0000. The Display Memory 
command lets you see whether the debug-mode cell really has been changed. 

5. Quit service mode by typing 7 or 9 , returning control to the menu described in step 3 above. Choose the 
'startup from' option to boot from your boot volume. 

6. The loader executes next. Just before it loads the main part of the OS, the loader emulates a level-7 interrupt 
to give you a chance to debug the loader. Type g to continue. 

7. When it reaches the DB_INIT section of startup - when OS symbols and labels are available - the OS 
emulates another level-7 interrupt. 

Now you can set breakpoints, examine system global variables, set trace fences, and perform any other LisaBug 
commands. Don't forget to set all breakpoints in terms of domain 0; for example: 

>BR 0:my_label 
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Cross Reference Listing: 



Beginning of file: DRIVERSUBS . TEXT 



1. 

2. UNIT DRIVERSUBS; { UNIT NEEDED BY CONFIGURABLE DRIVERS } 

3. 

4 . INTERFACE 

5 . USES 

6. {$U object/driverdefs.obj} 

7. DRIVERDEFS; 
8. 

9. 
10. procedure CANCEL_REQ(req: reqptr_type) ; 
11. 

12 . procedure ENQUEUE (var newlink , lef tlink : linkage ; b_sy sarea : absptr ) ; 
13. 

14 . procedure DEQUEUE (var link : linkage ; b_sysarea : absptr) ; 

15 . 

16. procedure RELSPACE (ordaddr : absptr; b_area: absptr); 
17. 

18. function GETSPACE (amount: int2 ; b_area: absptr; 

19. var ordaddr: absptr): boolean ; 
20. 

21. procedure SYSTEM_ERROR(errnum: int2) ; 

22 . 

23 . function TRACE (part : ospor tion ; level : integer) : boolean ; 
24. 

25. procedure status_req(reqptr : reqptr_type; 

26. var status: reqsts_type) ; 
27. 

28. procedure unblk_req(reqptr : reqptr_type; 

29. success_f: boolean); 
30. 

31. procedure blk_req(reqptr_list: reqptr_type; 

32. var first_reqptr : reqptr_type) ; 
33. 

34 . procedure IODONE (por t_ptr : hdiskcb_j?tr ; prev_err : integer) ; 

35 . 

36. procedure FREEZE_SEG (var errnum: int2 ; c_sdb: absptr; offset: int4 ; 

37. ioreq_addr: absptr; var buffaddr: absptr); 
38. 

39. procedure UNFREEZE_SEG(c_sdb: absptr); 
40. 

41. procedure ADJ_IO_CNT (inc_io_count: boolean; c_sdb: absptr); 

42 . 

43. procedure CVT_BUFF_ADDR (var errnum: int2 ; mem_writeF: boolean; buffaddr: absptr; 

44. byte_cnt: int4 ; var ordsdb: absptr; var offset: int4) 
45. 

46. procedure CALLDRIVER (var errnum: integer; config_ptr: ptrdevrec; 
47 . parameters : param_j?tr) ; 

48 . 

49. procedure INTSOFF (level : intsof f_type ; var status: intson_type) ; 
50. 

51. procedure INTSON (status : intson_type) ; 

52. 

53. function ALLSET(bl, b2 : intl) : boolean; 

54. 

55. function LOGGING: boolean; 

56. 

57. procedure LOG (var errnum: integer; ptr_arr: longint); 

58. 

59. function CHAIN_FORWARD (current: linkage): reqptr_type; 

60. 

61. procedure DISKSYNC (busy : boolean); 

62. 

63. function MICROTIMER: longint; 

64. 

65. procedure ALARM_ASSIGN (var alarm: integer; pdr: ptrdevrec; status: intson_type) ; 

66 . " 

67. procedure ALARMRETURN (alarm: integer); 
68. 

69. procedure ALARMRELATIVE (alarm: integer; delay: longint); 

70. 

71. procedure ALARMOFF (alarm: integer); 
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1: 72. 

1: 73. procedure LINK_TO_PCB (reqj>tr : reqptr_type) ; 

1 : 74 . 

1: 75. procedure Use_Hdisk(configptr : ptrdevrec) ; 

1: 76. 

1 : 77 . procedure Call_Hdisk (var error : int2 ; conf igptr : ptrdevrec ; parameters : param_ptr ) ; 

1: 78. 

1: 79. function OKXFERNEXT (por t_ptr : hdiskcb_j>tr) : integer; 

1: 80. 

1: 81. 

1 : 82 . IMPLEMENTATION 

1: 83. 

1: 84. procedure CANCEL_REQ; 

1 : 85 . external ; 

1: 86. 

1 : 87 . procedure ENQUEUE ; 

1: 88. external; 

1: 89. 

1 : 90 . procedure DEQUEUE ; 

1 : 91 . external ; 

1: 92. 

1 : 93 . procedure RELSPACE ; 

1 : 94 . external ; 

1: 95. 

1: 96. function GETSPACE; 

1 : 97 . external ; 

1: 98. 

1: 99. procedure SYSTEM_EKROR ; 

1: 100. external; 

1: 101. 

1: 102. function TRACE; 

1: 103. external; 

1: 104. 

1 : 105 . procedure status_req; 

1: 106. external; 

1: 107. 

1: 108. procedure unblk_req; 

1: 109. external; 

1: 110. 

1 : 111 . procedure blk_req; 

1: 112. external; 

1: 113. 

1: 114. procedure IODONE; 

1: 115. external; 

1: 116. 

1: 117. procedure FREEZE_SEG; 

1: 118. external; 

1: 119. 

1: 120. procedure UNFREEZE_SEG ; 

1 : 121 . external ; 

1: 122. 

1: 123. procedure ADJ_IO_CNT ; 

1: 124. external; 

1: 125. 

1: 126. procedure CVT_BUFF_ADDR; 

1: 127. external; 

1: 128. 

1: 129. procedure CALLDRIVER; 

1: 130. external; 

1: 131. 

1: 132. procedure INTSOFF; 

1: 133. external; 

1: 134. 

1: 135. procedure INTSON; 

1: 136. external; 

1: 137. 

1: 138. function ALLSET; 

1: 139. external; 

1: 140. 

1: 141. function LOGGING; 

1: 142. external; 

1: 143. 

1: 144. procedure LOG; 

1: 145. external; 

1: 146. 

1: 147. function CHAIN FORWARD; 
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148. 


external ; 




149. 






150. 


procedure 


DISKS YNC ; 


151. 


external ; 




152. 






153. 


function MICROTIMER; 


154. 


external ; 




155. 






156. 


procedure 


ALARM ASSIGN; 


157. 


external ; 




158. 






159. 


procedure 


ALARMRETURN; 


160. 


external ; 




161. 






162. 


procedure 


ALARMRELATIVE 


163. 


external ; 




164. 






165. 


procedure 


ALARMOFF; 


166. 


external ; 




167. 






168. 


procedure 


LINK TO PCB; 


169. 


external ; 




170. 






171. 


procedure 


Use Hdisk; 


172. 


external ; 




173. 






174. 


procedure 


Call Hdisk; 


175. 


external ; 




176. 






177. 


function OKXFERNEXT; 


178. 


external ; 




179. 






180. 


end. 




181. 







End of File: DRIVERSUBS . TEXT 



Directory of files in Cross Reference; 

1: DRIVERSUBS . TEXT 
level = 1 . 



absptr 1 : 
1 




12, 
37, 


1 
1 


14, 
39, 


1 

1 




16, 
41, 


1: 
1: 


alarm 1 : 




65* 


1 


67*, 


1 




69* 


1: 


amount 1 : 




18* 














bl 1 




53* 














b2 1 




53* 














b area 1 : 




16* 


1 


18*. 










b sysare 1 




12* 


1 


14*. 










buffaddr 1 




37* 


1 


43*. 










busy 1 : 
byte cnt 1 
c sdb 1 : 




61* 
44* 
36* 


1 


39*, 


1 




41* 




config_p 1 
configpt 1 
current 1 : 




46* 
75* 
59* 


1 


77*. 










delay 1 : 
driverde 1 




69* 
7. 














driversu 1 




2. 














errnum 1 ; 




21* 


1 


36*, 


1 




43* 


1: 


error 1 : 




77* 














external 1 




85, 


1 


88, 


1 




91, 


1: 


1 


: 109, 


1: 


112 




1 


115, 


1: 


118, 


1 


: 133, 


1: 


136 




1 


139, 


1: 


142, 


1 


: 157, 


1: 


160 




1 


163, 


1: 


166, 


first re 1 




32* 














hdiskcb 1 




34, 


1 


79. 










implemen 1 
inc io c 1 




82. 
41* 














intl 1 : 




53. 














int2 1 : 




18, 


1 


21, 


1 




36, 


1: 


int4 1 : 




36, 


1 


44, 


1 




44. 




interfac 1 




4. 














intsoff 1 




49. 















16, 
43, 
71*. 



1: 
1: 



18, 
44. 



36, 



94, 



1 




97, 


1: 


1 


121, 


1: 


124, 


1 


145, 


1: 


148, 


1 


169, 


1: 


172, 



1 


103, 


1 


106 


1 


127, 


1 


130 


1 


151, 


1 


154 


1 


175, 


1 


178 



43, 
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intson t '. 


49, 


1: 


51, 


1: 


65. 




ioreq_ad : 


: 37*. 












leftlink ] 


12*. 












level 1 


23*, 


1: 


49*. 








link 1 


14*. 












linkage 1 


12, 


1: 


14, 


1: 


59. 




mem writ '. 


43*. 












newlink 1 


12*. 












offset 1 


36*, 


1: 


44*. 








ordaddr 1 


16*, 


1: 


19*. 








ordsdb 1 


44*. 












osportio '. 


23. 












param_pt '. 


: 47, 


1: 


77. 








paramete : 


47*, 


1: 


77*. 








part 1 


23*. 












pdr 


1: 65*. 












port_ptr : 


34*, 


1: 


79*. 








prev err : 


34*. 












ptr arr 1 


57*. 












ptrdevre : 


46, 


1: 


65, 


1: 


75, 


1: 77. 


req 


1: 10*. 












req_ptr 1 


73*. 












reqptr 1 


25*, 


1: 


28*. 








reqptr 1 : 


: 31*. 












reqptr t : 


: 10, 


1: 


25, 


1: 


28, 


1: 31, 


reqsts t : 


26. 












status 1 


26*, 


1: 


49*, 


1: 


51*, 


1: 65* 


success 


29*. 












unit 1 


2. 













32, 



59, 



Procedures 



adj io c 1 


41* 


1 


123* 


alarm as 1 


65* 


1 


156* 


alarmof f 1 


71* 


1 


165* 


alarmrel 1 


69* 


1 


162* 


alarmret 1 


67* 


1 


159* 


blk req 1: 


31* 


1 


111* 


call_hdi 1 


77* 


1 


174* 


calldriv 1 


46* 


1 


129* 


cancel r 1 


10* 


1 


84* 


cvt buff 1 


43* 


1 


126* 


dequeue 1 : 


14* 


1 


90* 


disksync 1 


61* 


1 


150* 


enqueue 1 : 


12* 


1 


87* 


freeze s 1 


36* 


1 


117* 


intsof f 1 : 


49* 


1 


132* 


intson 1 : 


51* 


1 


135* 


iodone 1 : 


34* 


1 


114* 


link to 1 


73* 


1 


168* 


log 1 


: 57* 


1 


144* 


relspace 1 


16* 


1 


93* 


status r 1 


25* 


1 


105* 


system e 1 


21* 


1 


99* 


uhblk re 1 


28* 


1 


108* 


unfreeze 1 


39* 


1 


120* 


use hdis 1 


75* 


1 


171* 



Functions 



allset 1 : 


53*, 


1 


138* 


chain f o 1 : 


59*, 


1 


147* 


getspace 1 : 


18*, 


1 


96* 


logging 1 : 


55*, 


1 


141* 


microtim 1 : 


63*, 


1 


153* 


okxf erne 1 : 


79*, 


1 


177* 


trace 1 : 


23*, 


1 


102* 



Declaration Character 
Assignment Character : 
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Cross Reference Listing: 



Beginning of file: GENIO.TEXT 



1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
IS. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 

36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 



UNIT genio; 



{ general I/O driver } 



{ By Dave Of fen } 

{ Copyright 1983, Apple Computer Inc. } 

{ Modified 4/2/83 by Wendell Henry 

{ Add CALLDRIVER interface 



INTERFACE 
USES 



{ $Uobject/driverdef s . obj } 

driverdef s , 
{ $Uobject/hwint . obj } 

hwint, 
{ $Uobject/sysglobal . obj } 

globalda , 
{ $Uobject/procprims . obj } 

proc_prims , 
{$Uobject/mmprim.obj } 

mmprimitives , 
{ $Uobject/asynctr . obj } 

asynctr ; 



dr iver_id : longint ; 
version : integer ; 
sem: semaphore; 
addrdrivrname : absptr ; 
nusers: 0.. 32767; 
e_pt : absptr ; 
kres_addr : absptr ; 



{ as a debugging aid } 

{ driver ' s version number } 

{ locks access to drvrec } 

{ for loading driver (ptr to pathname) } 

{ use count for driver - if unloaded } 
{ driver address - undefined if nusers=0 } 
{ driver address if kernel-resident, nil 

if requires loading off disk 



end; 



procedure LINK_TO_PCB (req_j?tr : reqptr_type) ; 

procedure CALLDRIVER (var errnum: integer; config_ptr: ptrdevrec; 

parameters : param_ptr) ; 

procedure UP (var errnum: integer; config_j?tr: ptrdevrec; 

callers_conf ig_ptr : ptrdevrec) ; 

procedure DOWN (var errnum: integer; config_ptr: ptrdevrec; 

callers_conf ig_ptr : ptrdevrec; enter_at: integer) ; 

procedure ALARM_ASSIGN (var alarm: integer; pdr: ptrdevrec; 

status : intson_type) ; 

procedure ALARM_FIRES (alarm: integer); 

procedure CANCEL_REQ(req: reqptr_type) ; 

procedure DRIVERCALL (var errnum: integer; dev_index: integer; 

parameters : param_ptr) ; 

procedure SEQENTIO (var errnum: integer; dev_index: integer; io_buf f_addr : absptr; 

length: longint; read_f: boolean; pcb_ptr: ptr_pcb; 
var req_ptr: reqptr_type) ; 

procedure DISKIO(var errnum: integer; dev_index: integer; var header: pagelabel; 

extra_link: int4 ; extra_data_used : integer; io_buf f_addr : absptr; 

length : integer ; block_no : int4 ; read_f : boolean ; 

mode: disk_io_type ; pcb_ptr: ptr_pcb; var req_ptr: reqptr_type) ; 

function CHAIN_FORWARD (current: linkage): reqptr_type; 

function BADCALL (parameters : param_ptr) : integer; 
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1: 71. 

1 : 72 . function SCC (parameters : param_ptr ) : integer ; 

1: 73. 

1 : 74 . IMPLEMENTATION 

1: 75. 

1: 76. {$S krgenio} 

1 : 77 . 

1: 78. {$IFC not debug2} 

1: 79. {$R-} { rangecheck off unless debug mode } 

1: 80. {$ENDC} 

1: 81. 

1: 82. 

1: 83. 

1 : 84 . CONST 

1: 85. errbase = 600; 

1: 86. syserrbase = 10600; 

1: 87. 

1 : 88 . TYPE 

1: 89. ptrpathname = A pathname; { s/b USES } 

1: 90. 

1: 91. VAR { Yes, it's global } 

1: 92. alarm_table: array [0.. 20] { keyed to # of alarms in HWINT } of record 

1 : 93 . cf g_ptr : ptrdevrec ; 

1 : 94 . intstat : intson_type ; 

1: 95. filler: integer; { makes record a power of 2 - fast subscripts } 

1: 96. end; 

1: 97. 

1: 98. procedure LOAD_DRIVER ( var err: integer; var add: absptr; name: ptrpathname); 

1: 99. external; { s/b USES ) 

1: 100. 

1: 101. procedure UNLOAD_DRIVER (var err: integer; add: absptr); external; { s/b USES } 

1: 102. 

1: 103. procedure CALLDRIVER; external; 

1: 104. 

1: 105. procedure ALRM; external; 

1: 106. 

1: 107. procedure TWIGIO(var er: integer; var req: reqblk; addr: int4) ; external; 

1: 108. 

1: 109. procedure CANCEL_REQ ( * req: reqptr_type *) ; 

1; HO. J***********************************************************} 

1: 111. {* 
*} 

1: 112. {* Description: Dispose of request block & unlink from PCB *} 

1: 113. {* 
*} 

1: 114. {* Input Parameters: Pointer to request block *} 

1: 115. {* 
*} 

1: 116. {* Output Parameters: none *} 

1: 117. {* 
*) 

1: 118. {* Side Effects: none *} 

1: 119. {* 
*} 

1: 120. {* Special Conditions of Use: none *} 

1: 121. {* *} 

1: 122. {* Error Conditions: *) 

1: 123. {* 
*) 

1; 124. J***********************************************************} 

1: 125. 

1: 126. 

1 : 127 . VAR 

1: 128. prevints : intson_type; 

1: 129. pblk_in_pcb: ptrblk_type ; 

1: 130. 

1 : 131 . begin 

1: 132. INTSOFF (allints , prevints); 

1: 133. 

1 : 134 . with req" do 

1 : 135 . begin 

1: 136. DEQUEUE (pcb_chain . header , b_sysglobal_ptr) ; 

1: 137. INTSON (prevints ) ; 

1: 138. pblk_in_pcb := @blk_in_pcb ; 

1: 139. if pblk_in_pcb A = [i_o] then 

1: 140. with cfigptr A do 
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141. 
142. 
143. 
144. 
145. 
146. 
147. 
148. 
149. 
150. 
151. 
152. 
153. 



if permreq_ptr = req then 
begin 

preq_avail : = true ; 

EXIT (cancel_req) { permanent request doesn't get deleted } 
end 



RELSPACE(ord(req) , b_sysglobal_ptr) 
end; { cancel_req } 



procedure DISKIO; 



154. 
155. 



{ * Description : Start up or queue a disk read or write 
{* 



156. 
157. 



{ * Input Parameters : You wouldn ' t believe it if I told you . * } 
{* 



158. 
159. 



160. 
161. 
162. 



{ * Output Parameters : Req_ptr is the address of the newly 
{* created request block. 



163. 
164. 



{* Side Effects: Device dependent driver is invoked. 
{* 



165. 
166. 



{* Special Conditions of Use: none 
{* 



167. 
168. 



{ * Error Conditions : 
{* 



169. 
170. 
171. 
172. 
173. 
174. 
175. 
176. 
177. 
178. 
179. 
180. 
181. 
182. 
183. 
184. 
185. 
186. 
187. 
188. 
189. 
190. 
191. 
192. 
193. 
194. 
195. 
196. 
197. 
198. 
199. 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 



J************************************************************} 

VAR 

p : params ; 
d_ptr : absptr ; 
ext_j?tr : extdptr_type ; 
pblk_in_pcb : ptrblk_type ; 
ext_config: A ext_diskconfig; 
lef tlink : link_ptr ; 
bytes: longint; 
prevints : intson_type ; 

begin 

errnum : = ; 

ext_config := pointer (configinfo [dev_index] A .ext_addr) ; 

if (block_no < 0) or (length <= 0) or 

( (block_no + length) > ext_config A .num_bloks) or 
( (mode = chained_hdr s ) and not read_f ) or 
(read_f and (mode = with_header) ) then 
errnum := errbase + 8 { illegal mode, start addr or transfer length } 
else 

if not GETSPACE(sizeof (reqblk) +sizeof (disk_extend) , b_sysglobal_ptr , d_ptr) then 
errnum := errbase + 10; 

if errnum = then 
begin 

req_ptr := pointer (d_ptr) ; { point to the request } 

ext_ptr := pointer (d_ptr + sizeof (reqblk) ) ; { point to the extension area ) 

{ initialize the request block } 

with req_j?tr A do 
begin 

pcb_chain . kind : = reqblk_type ; 

reqstatus .reqsrv_f := active; 

reqstatus .reqabt_f := false; 

pblk_in_pcb : = @blk_in_pcb ; 

pblk_in_pcb A := [i_o] ; 

block_p_f := false; 
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1: 208. hard_error := 0; 

1: 209. operatn := ord(read_f ) ; 

1: 210. cfigptr := conf iginf o [dev_index] ; 

1: 211. req_extent := ord(ext_ptr) ; { point the request block to the extension } 

1: 212. end; 

1: 213. 

1 : 214 . { transfer parameters to disk extension data block } 

1: 215. 

1: 216. with ext_ptr A do 

1: 217. begin 

1 : 218 . if (mode = without_header) and not read_f then 

1: 219. with soft_hdr do 

1: 220. begin { zero out the header when writing w/o headers } 

1: 221. version := 0; 

1: 222. datastat := dataok; 

0; 



1: 223. filler 

1 : 224 . volume 



= 
= 



1: 225. fileid 

1: 226. dataused := 0; 

1: 227. abspage := 0; 

1: 228. relpage := 

1: 229. fwdlink := 

1: 230. bkwdlink := 

1: 231. end 

1: 232. else 

1: 233. soft_hdr := header; 

1: 234. last_fwd_link := extra_link; 

1: 235. last_data_used := extr a_data_used ; 

1: 236. read_flag := read_f; 

1: 237. blkno := block_no + ext_config A . strt_blok; 

1: 238. io_mode := mode; 

1: 239. num_chunks := length; 

1: 240. xfer_count := 0; 

1: 241. if io_mode = raw_io then 

1: 242. bytes := 536 

1: 243. else 

1: 244. bytes := 512; 

1: 245. CVT_BUFF_ADDR (errnum, read_f, io_buf f_addr , bytes*num_chunks , 

1: 246. buff_rdb_j>tr, buf f_of f set) ; 

1: 247. end; 

1: 248. 

1: 249. if errnum > then 

1: 250. RELSPACE(ord(req_ptr) , b_sysglobal_ptr) 

1: 251. else 

1 : 252 . begin { continue if no errors yet } 

1: 253. ADJ_IO_CNT(true, ext_ptr A .buff_rdb_ptr) ; { prevent swapout } 

1: 254. 

1 : 255 . { add request to pcb chain } 

1: 256. 

1: 257. INTSOFF (allints , prevints); 

1: 258. leftlink := pointer (pcb_ptr A . req_chain . header . bkwd_link + b_sysglobal_ptr) ; 

1: 259. ENQUEUE (req_ptr A .pcb_chain. header, lef tlink A , b_sysglobal_ptr) ; 

1: 260. INTSON (prevints) ; 

1: 261. 

1: 262. { call appropriate disk driver } 

1: 263. 

1: 264. p.fnctn_code := dskio; 

1: 265. p.req := req_j?tr; 

1: 266. CALLDRIVER (errnum, req_ptr A . cfigptr , @p) ; { call dskio } 

1: 267. if errnum > then 

1: 268. begin 

1: 269. ADJ_IO_CNT( false, ext_ptr A .buff_rdb_ptr) ; { allow swapout on errors ) 

1: 270. CANCEL_REQ (req_ptr) ; 

1: 271. end 

1: 272. end 

1: 273. end 

1: 274. end; { diskio ) 

1: 275. 

1: 276. 

1: 277. 

1: 278. procedure DRIVERCALL ( * var errnum: integer; dev_index: integer; 

1: 279. parameters: param_ptr *) ; 

1: 280. 

1; 281. /************************************************************* 1 

1: 282. {* 

*) 
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1: 283. {* Description: Device -independent driver call *} 

1: 284. {* 

*} 

1: 285. {* Input Parameters: Index into configinfo, and call- *} 

1: 286. {* specific parameter block *} 

1: 287. {* 

*} 

1: 288. {* Output Parameters: Only through pointers in parameter blk *} 

1: 289. {* 

*} 

1: 290. {* Side Effects: Driver routine dependent. *} 

1: 291. {* 

*} 

1: 292. {* Special Conditions of Use: none *} 

1: 293. {* 

*} 

1: 294. {* Error Conditions: *} 

1: 295. {* 

*} 
1; 296. / ************************************************************* 1 

1: 297. 

1: 298. begin 

1: 299. CALLDRIVER (errnum, conf iginf o [dev_index] , parameters) 

1 : 300 . end; { drivercall } 

1: 301. 

1: 302. 

1: 303. procedure LINK_TO_PCB ( * req_ptr: reqptr_type *) ; 

1: 304. 

1; 305. J************************************************************* 1 

1: 306. {* 

*} 

1: 307. {* Description: link passed request to current process' *} 

1: 308. {* Ctrl blk and initialize all but respec_info fields *} 

1: 309. {* 

*} 

1: 310. {* Input Parameters: Pointer to request block *} 

1: 311. {* 

*} 

1: 312. {* Output Parameters: none *} 

1: 313. {* 

*} 

1: 314. {* Side Effects: *} 

1: 315. {* 

*} 

1: 316. {* Special Conditions of Use: none *} 

1: 317. {* 

*} 
1: 318. {* Error Conditions: *} 

1: 319. {* 

*} 

1 : 320. I ************************************************************ 

1: 321. VAR 

1 : 322 . prevints : intson_type ; 

1 : 323 . cur_pcb_ptr : ptr_j?cb ; 

1 : 324 . lef tlink : reqptr_type ; 

1 : 325 . pblk_in_pcb : ptrblk_type ; 

1: 326. 

1: 327. begin 

1: 328. with req_ptr A do 

1: 329. begin 

1: 330. pcb_chain . kind := reqblk_type ; 

1: 331. reqstatus . reqsrv_f := active; 

1 : 332 . reqstatus . reqabt_f : = false ; 

1: 333. pblk_in_pcb := @blk_in_jpcb; 

1 : 334 . pblk_in_pcb A := [i_o] ; 

1: 335. block_j>_f := false; 

1: 336. hard_error := 0; 

1: 337. INTSOFF(allints, prevints); 

1: 338. cur_pcb_ptr := pointer (c_pcb_ptr) ; 

1: 339. leftlink := pointer (cur_j?cb_ptr A .req_chain. header .bkwd_link + 

1 : 340 . b_sysglobal_ptr) ; 

1 : 341. ENQUEUE (pcb_chain . header , leftlink" . pcb_chain . header , 

1: 342. b_sysglobal_ptr) ; 

1: 343. INTSON (prevints) 

1: 344. end 

1: 345. end; { link_to_pcb } 
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346. 
347. 
348. 
349. 
350. 
351. 
352. 
353. 
354. 



{$S fs3} 

procedure DOWN(* var errnum: integer; config_ptr: ptrdevrec; 

callers_conf ig_ptr : ptrdevrec; enter_at: integer *) , 

{* 



1: 355. 
1: 356. 



{ * Description : Undo what UP did 
{* 



357. 
358. 
359. 
360. 
361. 



{ * Input Parameters : Pointer to conf iginf o record of device * } 

{* to be DOWNed, pointer to hierarchically lower conf iginf o *} 

{* (or nil if none lower); enter_at allows for several entry*} 

{ * points (0 is standard value except when called from UP 

{* 



1: 362. 
1: 363. 



{ * Output Parameters : none 
{* 



364. 
365. 
366. 



{* Side Effects: UNLOAD_DRIVER, dunattach and ddown may be *) 
{* called. Semaphore is cleared when enter_at > 1. 



1: 367. 
1: 368. 



{* Special Conditions of Use: none 
{* 



1: 369. 
1: 370. 



{* Error Conditions: only error is: I/O still in progress 
{* 



371. 
372. 
373. 
374. 
375. 
376. 
377. 
378. 
379. 
380. 
381. 
382. 
383. 
384. 
385. 
386. 
387. 
388. 
389. 
390. 
391. 
392. 
393. 
394. 
395. 
396. 
397. 
398. 
399. 
400. 
401. 
402. 
403. 
404. 
405. 
406. 
407. 
408. 
409. 
410. 
411. 
412. 
413. 
414. 



1*************************************************************1 

LABEL 
1, 2, 3; 

VAR 
err2 : integer ; 
p : params ; 
pdrvrec : A drvrec ; 

begin 
with config_j?tr A do 
begin 

errnum : = ; 

pdrvrec : = pointer (drvrec_ptr ) ; 

if pdrvrec = nil then 

exit (DOWN); { only until all conf iginf os are configurable } 

{ test for branch to internal entry points for backing out of UP on errors } 

if enter_at > then 
begin 

if enter_at = 1 then goto 1 

if enter_at = 2 then goto 2 

if enter_at = 3 then goto 3 
end; 

if entry_pt = ord(nil) then 

exit (DOWN) ; { device not currently "upped" } 

p. still_inuse := false; 

if callers_config_ptr <> nil then 

begin 

p . f nctn_code : = dunattach ; 

p . o_conf igptr : = callers_conf ig_ptr ; 

CALLDRIVER(err2, config_ptr, @p) { unattach the sub_driver } 
end; 
if permanent or p. still_inuse then 

exit (DOWN) ; { keep device up } 

1 : WAIT_SEM (pdrvrec* . sem , [ ] ) ; 
p . f nctn_code : = ddown ; 

CALLDRIVER (err2 , config_ptr, @p) ; { down the device } 
if enter at = then 
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415. 
416. 
417. 
418. 
419. 
420. 
421. 
422. 
423. 
424. 
425. 
426. 
427. 
428. 
429. 
430. 
431. 
432. 
433. 
434. 
435. 
436. 
437. 
438. 
439. 
440. 
441. 
442. 
443. 
444. 
445. 

446. 
447. 
448. 

449. 
450. 
451. 
452. 

453. 
454. 

455. 
456. 

457. 
458. 

459. 
460. 

461. 
462. 
463. 
464. 
465. 
466. 
467. 
468. 
469. 
470. 
471. 
472. 
473. 
474. 
475. 
476. 
477. 
478. 
479. 
480. 
481. 
482. 
483. 



if err2 > then 
begin 

errnum : = err2 ; 

SIGNAL_SEM(pdrvrec A .sem) ; 

exit (DOWN) ; { I/O still in progress } 
end; 

2: entry_pt := ord(nil) ; 
with pdrvrec A do 
begin 

nusers : = nusers - 1 ; 

if nusers = then { driver no longer in use } 
if kres_addr = ord(nil) then 

UNLOflD_DRIVER(err2, e_pt) ; 
end; 

3 : SIGNAL_SEM (pdrvrec A . sem) ; 
if required_drvr <> nil then 

DOWN(err2, required_drvr , config_ptr, 0) ; 
end 
end; { down } 



{$S krgenio } 

procedure UP(* var errnum: integer; config_ptr: ptrdevrec; 
callers_conf ig_ptr : ptrdevrec *) ; 



{* Description; Up drivers "above" this, load driver. *} 

{* initialize driver, and attach "lower" drivers. *} 

{* 

{ * Input Parameters : Pointer to conf iginf o record of device * } 

{* to be UPed, pointer to hierarchically lower conf iginf o *} 

{* (or nil if none lower) 
{* 

{ * Output Parameters : none 
{* 

{* Side Effects: may call LOftD_DRIVER, dinit and dattach *) 
{* 

{ * Special Conditions of Use : none 
{* 

{ * Error Conditions : 
{* 



VAR 
err2 : integer ; 

p : params ; 
pdrvrec : A drvrec ; 



begin 



with config_jptr A do 
begin 

errnum := 0; 

pdrvrec := pointer (drvrec_ptr) ; 
if pdrvrec = nil then 

exit (UP) ; { only until all conf iginf os are configurable } 

if entry_pt <> ord(nil) then 
begin { already UPed } 

if callers_config_ptr <> nil then 

begin 

p.fnctn_code := dattach; 
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484. 
485. 
486. 
487. 
488. 
489. 
490. 
491. 
492. 
493. 
494. 
495. 
496. 
497. 
498. 
499. 
500. 
501. 
502. 
503. 
504. 
505. 
506. 
507. 
508. 
509. 
510. 
511. 
512. 
513. 
514. 
515. 
516. 
517. 
518. 
519. 
520. 
521. 
522. 
523. 
524. 
525. 
526. 
527. 
528. 
529. 
530. 
531. 
532. 
533. 
534. 
535. 
536. 
537. 
538. 
539. 
540. 
541. 

542. 
543. 

544. 
545. 

546. 
547. 

548. 
549. 

550. 
551. 

552. 
553. 



p . n_conf igptr : = callers_conf ig_ptr ; 

CALLDRIVER(errnum, config_ptr, @p) { attach the sub-driver } 
end; 
exit (UP) 



end; 



if required_drvr <> nil then 

begin { bring up the required driver before this one } 

UP(errnum, required_drvr , conf ig_ptr) ; 

if errnum > then exit (UP) 
end; 

pdrvrec := pointer (drvrec_ptr) ; 

with pdrvrec" do 

begin 

WAIT_SEM ( sem , [ ] ) ; 
if nusers = then 

if kres_addr <> ord(nil) then 

e_pt := kres_addr { kernel resident driver, no need to load } 
else 
begin 

LOAD_DRIVER( errnum, e_pt, pointer (addrdrivrname) ) ; 

if errnum > then 

begin 

DOWN(err2, config_ptr, callers_conf ig_ptr , 3); { back out & clear sem } 
exit (UP) 
end 
end; 

entry_pt := e_j?t; 
nusers : = nusers + 1 ; 

p . f nctn_code : = dinit ; 

CALLDRIVER (errnum, config_ptr, @p) ; { initialize the driver } 

if errnum > then 

begin 

DOWN(err2, config_ptr, callers_conf ig_ptr , 2); { back out & clear sem } 
exit (UP) 
end; 

SIGNAL_SEM(sem) ; 
end; 

if callers_config_ptr <> nil then 
begin 

p.fnctn_code := dattach; 

p . n_conf igptr : = callers_conf ig_ptr ; 

CALLDRIVER (errnum, config_ptr, @p) ; { attach the sub-driver } 

if errnum > then 

DOWN(err2, config_ptr, callers_conf ig_ptr , 1); { back out } 
end 



end 
end; { up } 



procedure ALARM_FIRES ( * alarm: integer *) ; 
I*************************************************************} 



{* Description; driver alarms call ALRM, which calls this *} 
{* 

{ * Input Parameters : alarm number is in alarm on entry 
{* 

{ * Output Parameters : none 
{* 

{* Side Effects: 
{* 

{ * Special Conditions of Use : none 
{* 

{ * Error Conditions : 
{* 
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554 . J*************************************************************} 

555 . VAR 

556. errnum: integer; 
557 . p : params ; 

558. 

559 . begin 

560. with alarm_table [alarm] do 

561. begin 

562. INTSON(intstat) ; 

563. p.fnctn_code := dalarms ; 

564. p.intpar := alarm; 

565. CALLDRIVER (errnum, cfg_ptr, @p) 

566. end 

567. end; {alarm_fires } 
568. 

569. procedure ALARM_ASSIGN(* var alarm: integer; pdr: ptrdevrec; 

570. status: intson_type *) ; 
571. 

572. J*************************************************************} 

573. {* 



*} 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 
*} 

1: 574. {* Description: Call ALARMASSIGN while providing for correct *} 

1: 575. {* driver to be called when alarm fires. 

1: 576. {* 
M 

1: 577. {* Input Parameters: pointer to this devices configinfo rec. *} 

1: 578. {* and desired interrupt priority during alarm execution *} 

1: 579. {* 
*} 

1: 580. {* Output Parameters: alarm number (=0 when none available) *} 

1: 581. {* 
*> 

1: 582. {* Side Effects: 

1: 583. {* 
*} 

1: 584. {* Special Conditions of Use: none 

1: 585. {* 
*} 

1: 586. {* Error Conditions: non available when alarm =0 * 

1: 587. {* 
*} 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 

1: 
*> 

1 : 602 . { * Description : Illegal driver . 

1: 603. {* 
*} 

1 : 604 . { * Input Parameters : standard parameter record 

1: 605. {* 
*} 

1: 606. {* Output Parameters: errnum returned as function result 

1: 607. {* 
*} 

1: 608. {* Side Effects: 

1: 609. {* 
*> 

1: 610. {* Special Conditions of Use: none 

1: 611. {* 
*} 

1 : 612 . { * Error Conditions : Always causes an error 

1: 613. {* 

*} 
1 : 614 . {********************************************** 



588. i*************************************************************} 
589. 

590 . begin 

591. ALARMASSIGN (alarm, ord(@ALRM) ) ; 

592. with alarm_table [alarm] do 

593. begin 

594. cfg_ptr := pdr; 

595. intstat := status 

596. end 

597 . end; { alarm_assign } 
598. 

599. function BADCALL(* parameters: param_ptr ) : integer *) ; 

600. j*****************************************^ 

601. {* 
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615. 

616 . begin 

617 . if parameters" . fnctn_code = dinterrupt then 

618. SYSTEM_ERR0R(syserrbase+9) ; { interrupts would ignore returned errnum } 

619. badcall := errbase+9; 

620. end; { badcall } 
621. 
622. 

623. function CHAIN_FORWftRD ( * current: linkage ): reqptr_type *) ; 

624. {*************************************************************} 

625. {* 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
*} 

1: 626. {* Description: Use forward link of relptr to point to next *} 

1: 627. {* request block 

1: 628. {* 
*} 

1: 629. {* Input Parameters: linkage pointing to next request block *} 

1: 630. {* 
*} 

1: 631. {* Output Parameters: pointer to the request block 

1: 632. {* 
*} 

1: 633. {* Side Effects: 

1: 634. {* 
*} 

1 : 635 . { * Special Conditions of Use : callable from drivers 

1: 636. {* 
*} 

1 : 637 . { * Error Conditions : 

1: 638. {* 
*} 



639. J*************************************************************} 
640. 

641. begin 

642. CHAIN_FORWARD := pointer (current. fwd_link+b_sysglobal_ptr-sizeof (Rb_headT) ) 

643. end; { chain_forward } 
644. 
645. 

646. function SCC(* parameters: param_ptr ): integer *) ; 

647. {*************************************************************} 

648. {* 



1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
*} 

1: 649. {* Description: driver for 2-port SCC 

1: 650. {* 
*> 

1: 651. {* Input Parameters: standard parameter record 

1: 652. {* 
*} 

1 : 653 . { * Output Parameters : errnum returned as function result 

1: 654. {* 
*} 

1: 655. {* Side Effects: 

1: 656. {* 
*} 

1: 657. {* Special Conditions of Use: only for initialization of SCC *} 

1: 658. {* 
*} 

1: 659. {* Error Conditions: 

1: 660. {* 
*} 



661. {*************************************************************} 
662. 

663 . CONST 

664. ebase = 680; 
665. 

666 . TYPE 

667. rscb = record { this is the control block for the SCC. 1 pointer for 

668 . each channel ' s control block } 

669. a, b: ptrdevrec; 

670. end; 
671. 

672. 

673. {$S init) 

674. 

675. procedure SCINIT; 

676 . J**********************************************} 
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677. 
678. 
679. 
680. 
681. 
682. 
683. 
684. 
685. 
686. 
687. 
688. 
689. 
690. 
691. 
692. 
693. 
694. 
695. 
696. 
697. 
698. 
699. 
700. 
701. 
702. 
703. 
704. 
705. 
706. 
707. 
708. 
709. 
710. 
711. 
712. 
713. 
714. 
715. 
716. 
717. 
718. 
719. 
720. 
721. 
722. 
723. 
724. 
725. 
726. 
727. 
728. 
729. 
730. 
731. 
732. 
733. 
734. 
735. 
736. 
737. 
738. 
739. 
740. 
741. 
742. 
743. 
744. 
745. 
746. 
747. 
748. 
749. 
750. 
751. 
752. 



{* internal subroutine to initialize SCC chip *} 
J**********************************************} 

VAR 

cb_rec : A r scb ; 
prevints : intson_type ; 
temp: longint; 

begin 

INTSOFF(rsints, prevints) ; 

if not GETSPACE(sizeof (rscb) , b_sysglobal_ptr , temp) then 

SCC := ebase+3 
else 
begin 

parameters" .conf igptr A .cb_addr := temp; 

cb_rec := pointer (temp) ; 

cb_rec A .a : = nil ; 

cb_rec A .b := nil; 

SCC := 0; {no errors } 
end; 

INTSON (prevints ) 
end; { scinit } 



procedure SCATTACH; 
/******************************************************} 

{ * internal subroutine to attach a or b driver to SCC * } 
J******************************************************} 

VAR 

cb_rec : A r scb ; 

begin 

with parameters* do 
begin 

cb_rec := pointer (conf igptr A .cb_addr) ; 
if n_conf igptr A . iochannel = then 

cb_rec A .a : = n_conf igptr 
else 

cb_rec A . b : = n_conf igptr ; 
SCC := 0; 
end 
end; { scattach } 

{$S fs3> 

procedure SCDOWN; 
/*******************************************} 

{* internal subroutine to down sec devices *} 
I*******************************************} 

VAR 

prevints : intson_type ; 

begin 

INTSOFF(rsints, prevints) ; 

with parameters A . conf igptr A do 

begin 

RELSPACE(cb_addr, b_sysglobal_ptr) ; 
cb_addr := ord(nil) 

end; 

INTSON (prevints) ; 

SCC := { no errors ) 
end; { scdown } 

procedure SCUNATTACH; 
/**********************************************************} 

{* internal subroutine to unattach a or b driver from SCC *} 
J**********************************************************} 

VAR 

cb_rec : A r scb ; 

begin 

with parameters* do 
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1 : 753 . begin 

1: 754. cb_rec := pointer (configptr A .cb_addr) ; 

1 : 755 . with cb_rec A do 

1 : 756 . begin 

1: 757. if o_conf igptr A . iochannel = then 

1: 758. a := nil 

1: 759. else 

1: 760. b := nil; 

1: 761. 

1: 762. still_inuse := ((a <> nil) or (b <> nil) ) ; 

1: 763. end 

1: 764. end 

1: 765. end; { scunattach } 

1: 766. 

1 : 767 . J*************************************************************************} 

1: 768. 

1: 769. {$S krgenio) 

1: 770. 

1: 771. begin { sec } 

1 : 772 . case parameters'* . fnctn_code of 

1: 773. 

1: 774. dinit: SCINIT; { call internal subroutine in init segment } 

1: 775. 

1: 776. ddown : SCDOWN; { call internal subroutine in non-res segment } 

1: 777. 

1: 778. dattach: SCATTACH; { call internal subroutine in non-res segment } 

1: 779. 

1: 780. dunattach: SCUNATTACH; { call internal subroutine in non-res segment } 

1: 781. 

1 : 782 . otherwise 

1: 783. SCC := ebase + 2; {no other functions allowed for 2-line SCC ) 

1: 784. 

1 : 785 . end { case } 

1: 786. end; { SCC } 

1: 787. 

1: 788. 

1: 789. {$S nigenio) 

1: 790. 

1: 791. procedure SEQENTIO(* var errnum: integer; dev_index: integer; io_buf f_addr : absptr; 

1: 792. length: longint; read_f: boolean; pcb_ptr: ptr_pcb; 

1: 793. var req_ptr: reqptr_type *) ; 

1: 794. 

1 : 795 . {*************************************************************} 

1: 796. {* 
*} 

1: 797. {* Description; Start up or queue a sequential read/write. *} 

1: 798. {* 
*) 

1: 799. {* Input Parameters: configinfo index, memory address, *} 

1: 800. {* length in bytes, read/write flag, process' pcb_ptr. *} 

1: 801. {* 
*) 

1: 802. {* Output Parameters: Req_ptr is the address of the newly *} 

1: 803. {* created request block. 

1: 804. {* 
*) 

1: 805. {* Side Effects: Device dependent driver is invoked. *} 

1: 806. {* 
*) 

1: 807. {* Special Conditions of Use: none 

1: 808. {* 
*) 

1: 809. {* Error Conditions: 

1: 810. {* 

*) 

1 : 811 . {*************************************************************} 

1: 812. 

1: 813. 

1 : 814 . VAR 

1: 815. d_ptr: absptr; 

1: 816. ext_ptr: seqextptr_type ; 

1: 817. prevints : intson_type; 

1: 818. leftlink: link_j>tr; 

1: 819. p: params; 

1: 820. pblk_in_pcb: ptrblk_type; 

1: 821. 
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822. 


823. 


824. 


825. 


826. 


827. 


828. 


829. 


830. 


831. 


832. 


833. 


834. 


835. 


836. 


837. 


838. 


839. 


840. 


841. 


842. 


843. 


844. 


845. 


846. 


847. 


848. 


849. 


850. 


851. 


852. 


853. 


854. 


855. 


856. 


857. 


858. 


859. 


860. 


861. 


862. 


863. 


864. 


865. 


866. 


867. 


868. 


869. 


870. 


871. 


872. 


873. 


874. 


875. 


876. 


877. 


878. 


879. 


880. 


881. 


882. 


883. 


884. 


885. 


886. 


887. 


888. 


889. 


890. 


891. 


892. 


893. 


894. 


895. 



begin 
errnum : = ; 

with configinfo [dev_index] A do 
if preq_avail then 

begin { use pre-allocated request block } 
preq_avail := false; 
d_ptr := ord(permreq_ptr) 
end 
else 

if not GETSPACE (sizeof (reqblk)+sizeof (seq_extend) , b_sysglobal_ptr , d_ptr) then 
errnum := errbase + 10; 
if errnum = then 
begin 

req_ptr := pointer (d_ptr) ; { return pointer to the request } 

ext_ptr := pointer (d_ptr + sizeof (reqblk) ) ; { point to extension area } 

{ initialize the request block } 

with req_ptr A do 
begin 

pcb_chain . kind : = reqblk_type ; 

reqstatus .reqsrv_f := active; 

reqstatus .reqabt_f := false; 

pblk_in_pcb := @blk_in_pcb; 

pblk_in_pcb A := [i_o] ; 

block_p_f := false; 

hard_error : = ; 

operatn := ord(read_f); 

cfigptr := conf iginf o [dev_index] ; 

req_extent := ord(ext_j?tr) ; { point the request block to the extension } 
end; 

{ initialize the extension data block } 

with ext_ptr A do 
begin 

read_flag := read_f; 

num_by tes : = length ; 

xf er_count : = ; 

CVT_BUFF_ADDR (errnum, read_f, io_buff_addr, length, buf f _rdb_ptr , 
buf f_of f set) ; 
end; 
if errnum > then 

with configinfo [dev_index] A do 

if permreq_ptr = req_ptr then 
preq_avail := true 

else 

KELSPACE(ord(req_ptr) , b_sysglobal_ptr) 
else 
begin { continue if no errors yet } 

ADJ_IO_CNT(true, ext_ptr A .buff_rdb_ptr) ; { prevent swapout } 

{ add request to pcb chain } 

INTSOFF (allints , prevints); 

leftlink := pointer (pcb_jptr A . req_chain. header. bkwd_link + b_sysglobal_ptr) ; 

ENQUEUE (req_j?tr A .pcb_chain. header, lef tlink A , b_sysglobal_ptr) ; 

INTSON (prevints) ; 

{ call driver to start the request } 

p . f nctn_code : = seqio ; 

p . req : = req_ptr ; 

CALLDRIVER (errnum, req_ptr A .cfigptr, @p) ; { call seqio } 

if errnum > then 

begin 

AD J_IO_CNT (false, ext_ptr A .buff_rdb_ptr) ; { allow swapout on errors } 
CANCEL_REQ(req_j>tr) ; 
end 
end 
end 
end ; { seqentio } 



End of File: GENIO.TEXT 
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Directory of files in Cross Reference: 



1: GENIO.TEXT 
























level = 1 . 
























a 1: 669* 


1: 694= 




1: 


715=, 


1: 


758= 




1: 


762. 






abspage 1: 227=. 
























absptr 1 : 


31, 1: 


33, 


1: 




34, 


1: 


59, 


1: 




64, 


1 


1: 815. 
























active 1: 203, 


1: 331, 


1: 843. 




















add 1: 


98*, 1: 


101*. 




















addr 1: 107*. 
























addrdriv 1 : 


31*, 1: 


505. 




















adj io c 1: 253, 


1: 269, 


1: 872, 


1 


888. 
















alarm 1 : 


49*, 1: 


52*, 


1: 


560, 


1: 


564, 




1: 


591, 


1: 


592 


alarm ta 1 : 


92*, 1: 


560, 


1: 


592. 
















alarmass 1 : 591 . 
























allints 1: 132, 


1: 257, 


1: 337, 


1 


876. 
















asynctr 1 : 


24. 






















b 1: 669* 


1: 695= 


, 


1: 


717=, 


1: 


760= 


, 


1: 


762. 






b sysglo 1: 136, 


1: 147, 


1: 190, 


1 


250, 






1: 258, 


1 


259, 






1: 642, 


1: 688, 




1: 


736, 


1: 


831, 




1: 


869, 


1: 


877 


bkwd lin 1 


258, 


1: 339, 


1: 877. 




















bkwdlink 1 


230=. 
























blk in_p 1 


138, 


1: 205, 


1: 333, 


1 


845. 
















blkno 1: 237=. 
























block no 1 : 


65* , 1 : 


184, 


1: 


185, 


1: 


237. 












block_p 1: 207=, 


1: 335=, 




1: 


847=. 
















buff_off 1: 246, 


1: 862. 






















buff rdb 1: 246, 


1: 253, 


1: 269, 


1 


861, 






1: 872, 


1 


888. 






bytes 1: 178*, 


1: 242=, 


1: 244= 


1 


245. 
















c_pcb_pt 1 : 338 . 
























callers 1 : 


44*, 1: 


47*, 


1: 


402, 


1: 


405, 




1: 


481, 


1: 


484 


1: 526, 


1: 529, 




1: 


532. 
















cb_addr 1: 692=, 


1: 713, 


1: 736, 


1 


737= 






1: 754. 










cb rec 1: 681*, 


1: 693=, 


1: 694, 


1 


695, 






1: 708*, 


1 


713= 






1: 749* 


1: 754= 


, 


1: 


755. 
















cfg_ptr 1 : 


93*, 1: 


565, 


1: 


594=. 
















cfigptr 1: 140, 


1: 210=, 


1: 266, 


1 


850= 






1: 885. 










chained 1: 186. 
























conf ig_p 1 : 


40*, 1: 


43*, 


1: 




46* 


, 1: 


382, 


1: 


406, 


1: 


413 


1: 485, 


1: 492, 




1: 


508, 


1: 


517, 




1: 


520, 


1: 


530 


configin 1 


183, 


1: 210, 


1: 299, 


1 


824, 






1: 850, 


1 


865. 






configpt 1 


692, 


1: 713, 


1: 734, 


1 


754. 
















cur_pcb 1 


323*, 


1: 338=, 




1: 


339. 
















current 1 : 


68*, 1: 


642. 




















cvt_buff 1: 245, 


1: 861. 






















d_j>tr 1: 173*, 


1: 190, 


1: 195, 


1 


196, 






1: 815*, 


1 


828= 






1: 836. 
























dalarms 1 : 563 . 
























dataok 1: 222. 
























datastat 1: 222=. 
























dataused 1: 226=. 
























dattach 1: 483, 


1: 528, 


1: 778. 




















ddown 1: 412, 


1: 776. 






















dequeue 1: 136. 
























dev inde 1 : 


56*, 1: 


59*, 


1: 




63* 


, 1: 


183, 


1: 


210, 


1: 


299 


1: 865. 
























dinit 1: 516, 


1: 774. 






















dinterru 1 


617. 
























disk ext 1 


190. 
























disk io 1 




66. 






















driver i 1 




28*. 






















driverde 1 




14. 






















drvrec 1 : 


27*, 1: 


379, 


1: 


467. 
















drvrec_p 1 : 385 , 


1: 475, 


1: 496. 




















dskio 1: 264. 
























dunattac 1 : 404 , 


1: 780. 






















e_pt 1: 


33*, 1: 


428, 


1: 


502=, 


1: 


505, 




1: 


513. 






ebase 1: 664*, 


1: 689, 


1: 783. 




















enqueue 1: 259, 


1: 341, 


1: 878. 




















enter at 1 : 


47*, 1: 


391, 


1: 


393, 


1: 


394, 




1: 


395, 


1: 


414 


entry_pt 1: 398, 


1: 422=, 




1: 


479, 


1: 


513= 












er 1 


: 107* 

























98, 



101, 



340, 



1: 342, 
1: 878. 



715, 



1: 508, 
1: 717, 



831, 



433, 
532. 



835, 



824, 
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err 1 




98*, 1 


101*. 




























err2 1 : 


377*, 


1: 406, 


1: 413, 


1: 415, 






1: 417, 


1: 428, 




1: 433, 


1: 465*, 






1 


508, 


1: 520 




1 


532. 
























errbase 1 : 




85*, 1 


188, 


1 


191, 


1 


619, 




1 


832. 














errnura 1 : 




40*, 1 


43*, 


1 




46*, 1: 


56*, 


1 




59*, 1: 63*, 


1 


182=, 


1 


188 


1 


191= 


1 


193 




1 


245, 


1 


249, 




1 


266, 


1 


267, 


1 


299, 


1 


384 


1 


417= 


1 


473= 


= , 


1 


485, 


1 


492, 




1 


493, 


1 


505, 


1 


506, 


1 


517 


1 


518, 


1 


530 




1 


531, 


1 


556* 




1 


565, 


1 


823=, 


1 


832=, 


1 


833 


1 


861, 


1 


864 




1 


885, 


1 


886. 




















exit 1 : 


144, 


1: 387, 


1: 399, 


1: 409, 






1: 419, 


1: 477, 




1: 487, 


1: 493, 






1 


509, 


1: 521 






























ext addr 1 : 


183. 
































ext conf 1 : 


176*, 


1: 183= 




1 


185, 


1 


237. 




















ext disk 1 : 


176. 
































ext_ptr 1 : 


174*, 


1: 196=, 


1: 211, 


1: 216, 






1: 253, 


1: 269, 




1: 816*, 


1: 836=, 






1 


851, 


1: 856 




1 


872, 


1 


888. 




















extdptr 1 : 


174. 
































external 1 : 




99, 1 


101, 


1 


103, 


1 


105, 




1 


107. 














extra da 1 : 




64*, 1 


235. 




























extra li 1 : 




64*, 1 


234. 




























f ileid 1 : 


225=. 
































filler 1 : 




95*, 1 


223=. 




























f nctn co 1 : 


264=, 


1: 404= 




1 


412=, 


1 


483= 




1 


516=, 


1 


528=, 


1 


563=, 


1 


617 


1 


772, 


1: 883= 






























fwd_link 1: 


642. 
































fwdlink 1: 


229=. 
































genio 1 : 




1. 






























getspace 1 : 


190, 


1: 688, 


1: 831. 




























globalda 1 : 




18. 






























hard err 1 : 


208=, 


1: 336= 




1 


848=. 
























header 1 : 




63*, 1 


136, 


1 


233, 


1 


258, 




1 


259, 


1 


339, 


1 


341, 


1 


341 


1 


877, 


1: 878 






























hwint 1 : 




16. 






























i_o 1 


139, 


1: 206 




1 


334, 


1 


846. 




















implemen 1 : 




74. 






























int4 1 : 




64, 1 


65, 


1 


107. 
























interf ac 1 : 




10. 






























intpar 1 : 


564=. 
































intsof f 1 : 


132, 


1: 257, 


1: 337, 


1: 686, 






1: 733, 


1: 876. 














intson 1 : 


137, 


1: 260, 


1: 343, 


1: 562, 






1: 698, 


1: 739, 




1: 879. 










intson t 1 : 




50, 1 


94, 


1 


128, 


1 


179, 




1 


322, 


1 


682, 


1 


730, 


1 


817 


intstat 1 : 




94*, 1 


562, 


1 


595=. 
























io_buff_ 1: 




59*, 1 


64*, 


1 


245, 


1 


861. 




















io mode 1 : 


238=, 


1: 241. 






























iochanne 1 : 


714, 


1: 757. 






























kind 1 : 


202=, 


1: 330=, 


1: 842= 




























kres add 1 : 




34*, 1 


427, 


1 


501, 


1 


502. 




















label 1 : 


373. 
































last dat 1 : 


235=. 
































last fwd 1 : 


234=. 
































leftlink 1: 


177*, 


1: 258= 




1 


259, 


1 


324* 




1 


339=, 


1 


341, 


1 


818*, 


1 


877 


1 


878. 
































length 1 : 




60*, 1 


65*, 


1 


184, 


1 


185, 




1 


239, 


1 


859, 


1 


861. 






link_ptr 1 : 


177, 


1: 818. 






























linkage 1 : 




68. 






























mmprimit 1 : 




22. 






























mode 1 : 




66*, 1 


186, 


1 


187, 


1 


218, 




1 


238. 














n conf ig 1 : 


484=, 


1: 529= 




1 


714, 


1 


715, 




1 


717. 














name 1 : 




98*. 






























num blok 1 : 


185. 
































num byte 1 : 


859=. 
































num chun 1 : 


239=, 


1: 245. 






























misers 1 : 




32, 1 


425=, 


1 


425, 


1 


426, 




1 


500, 


1 


514=, 


1 


514. 






o conf ig 1 : 


405=, 


1: 757. 






























opera tn 1 : 


209=, 


1: 849=. 






























p i 


172* 


1 


264 




1 


265, 


1 


266, 




1 


378*, 


1 


401, 


1 


404, 


1 


405 


i 


406, 


1 


408 




1 


412, 


1 


413, 




1 


466*, 


1 


483, 


1 


484, 


1 


485 


i 


516, 


1 


517 




1 


528, 


1 


529, 




1 


530, 


1 


557*, 


1 


563, 


1 


564 


i 


565, 


1 


819' 


t 


1 


883, 


1 


884, 




1 


885. 














pagelabe 1 : 




63. 






























param_pt 1 : 




41, 1 


57, 


1 




70 


1: 


72. 


















paramete 1 : 




41*, 1 


57*, 


1 




70' 


', 1: 


72*, 


1 


299, 


1 


617, 


1 


692, 


1 


711 


1 


734, 


1: 752 




1 


772. 
























params 1 : 


172, 


1: 378, 


1: 466, 


] 


L: 557, 






1: 819. 


















pathname 1 : 




89. 






























pblk in 1 : 


129*, 


1: 


138= 




1 


139, 


1 


175* 




1 


205=, 


1 


206=, 


1 


325*, 


1 


333 
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pcb_chai 1 : 
pcb_ptr 1 : 
pdr 1 
pdrvrec 1 : 

1 
permanen 1 : 
permreq_ 1 : 
pointer 1 : 
1 
1 
preq_ava 1 : 
prevints 1 : 
1 
1 
proc_pri 1 : 
ptr_pcb 1 : 
ptrblk_t 1 
ptrdevre 1 
ptrpathn 1 
raw_io 1 : 
rb_headt 1 
read f 1 : 



334= 
136, 



379*, 
: 475= 

408. 

141, 
183, 
: 496, 
: 877. 

143=, 

128*, 
: 343, 
: 876, 



129, 



1: 820*, 
1: 202, 1: 259, 
60*, 1: 66*, 
49*, 1: 594. 
1: 385=, 1: 386, 

1: 476, 



1: 828, 1: 
1: 195, 1: 
1: 505, 



866. 
196, 



827= 
137, 



1: 825, 1 

1: 132, 1 

1: 682*, 

1: 879. 
20. 

60, 1: 66, 

1: 175, 1: 325 
40, 1: 43, 
89*, 1: 98. 



read_fla 1 
relpage 1 : 
relspace 1 : 
req 1 
req_chai 1 : 
req_exte 1 : 
req_ptr 1 : 
1 
1 
reqabt_f 1 : 
reqblk 1 : 
reqblk_t 1 
reqptr_t 1 
reqsrv_f 1 
reqstatu 1 
required 1 
rscb 1 : 
rsints 1 : 
sem 1 
semaphor 1 
seq_exte 1 
seqextpt 1 
seqio 1 : 
signal_s 1 : 
sizeof 1 : 
soft_hdr 1: 
status 1 : 
still_in 1 
strt_blo 1 
syserrba 1 
system_e 1 
temp 1 
unit 1 
version 1 
volume 1 
wait_sem 1 : 
with_hea 1 : 
without_ 1 : 
xfer cou 1 : 



241. 
642. 

: 849, 
236=, 

228=. 
147, 

258, 
211=, 

: 266, 
: 884, 

204=, 
107, 

202, 

203=, 

203, 

432, 

667*, 

686, 



60*, 1: 

1: 858, 

1: 858=. 



65*, 



1: 250, 1: 736, 
54*, 1: 107*, 
1: 339, 1: 877. 
1: 851=. 
38*, 1: 

1: 270, 

1: 885, 
1: 332=, 
1: 190, 
1: 330, 
38, 1: 



61*, 



1: 196, 
1: 842. 
54, 



331=, 
204, 
433, 
1: 681, 
1: 733. 
30*, 1: 
30. 



331, 
490, 
688, 



411, 



831. 

816. 
883. 

418, 
190, 

219, 

401= 
237. 

618. 
683*, 



1: 523. 
1: 196, 



1: 431 
1: 190, 
1: 233=. 
50*, 1: 595. 
1: 408, 



86*, 



1: 688, 

1. 
29*, 1 



1: 762= 
1: 618. 
1: 692, 
221=. 



224=. 

411, 
187. 
218. 
240= 



1: 499. 



1: 860=. 



1: 845=, 1: 846=. 

1: 330, 1: 341, 1: 341, 1: 842, 1: 878. 

1: 258, 1: 877. 



1: 411, 1: 418, 1: 423, 

1: 496=, 1: 497. 



1: 431, 1: 467*, 



1: 258, 1: 338, 1: 339, 1: 385, 1: 475, 

1: 642, 1: 693, 1: 713, 1: 754, 1: 835, 1: 836, 

1: 867=. 

1: 179*, 1: 257, 1: 260, 1: 322*, 1: 337, 

1: 686, 1: 698, 1: 730*, 1: 733, 1: 739, 1: 817*, 



1: 323. 

1: 820. 
1: 44, 1: 46, 



1: 186, 1: 187, 
1: 861. 



1: 869. 
1: 134, 1: 141, 



47, 



1: 209, 1: 218, 



1: 147, 1: 265= 



49, 



93, 1: 669. 



1: 236, 1: 245, 



1: 66*, 1: 195=, 1: 200, 1: 250, 
1: 328, 1: 835=, 1: 840, 1: 866, 
1: 889. 
1: 844=. 
1: 831, 1: 836. 



1: 259, 1: 265, 
1: 869, 1: 878, 



1: 61, 1: 66, 
1: 843=. 



332, 
492. 
708, 



1: 418, 1: 431, 



1: 642, 



1: 693. 



68, 1: 324. 



1: 843, 1: 844. 



1: 499, 1: 523. 



1: 688, 1: 831, 



1: 831, 1: 836. 



Procedures 



alarm as 1 : 


49*, 1: 


569*. 


















alarm f i 1 : 


52*, 1: 


539*. 


















alrm 1: 105*, 


1: 591. 




















calldriv 1 : 


40*, 1: 


103*, 


1: 


266, 


1: 


299, 


1: 


406, 


1: 


413, 


1: 530, 


1: 565, 




1: 


885. 














cancel r 1 : 


54*, 1: 


109*, 


1: 


144, 


1: 


270, 


1: 


889. 






diskio 1 : 


63*, 1: 


151*. 


















down 1 : 


46*, 1: 


350*, 


1: 


387, 


1: 


399, 


1: 


409, 


1: 


419, 


1: 520, 


1: 532. 




















driverca 1 : 


56*, 1: 


278*. 



















1: 485, 1: 517, 



1: 433, 1: 508, 
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link to 1 : 


38*, 


1: 


303*. 








load dri 1 : 


98*, 


1: 


505. 








scattach 1: 702*, 


1: 778. 










scdown 1: 724*, 


1: 776 












scinit 1: 675*, 


1: 774 












scunatta 1 : 743* , 


1: 780. 










seqentio 1 : 


59*, 


1: 


791*. 








twigio 1 : 107* . 














unload_d 1: 101*, 


1: 428. 










up 1 : 


43*, 


1: 


441*, 


1: 


477, 


1 


Functions 














badcall 1 : 


70*, 


1: 


599*, 


1: 


619=. 




chain f o 1 : 


68*, 


1: 


623*, 


1: 


642=. 




sec 1 : 


72*, 


1: 


646*, 


1: 


689=, 


1 


Declaration Character : 


i * > 










Assignment Character : 


' = ' 











1: 492, 1: 493, 



1: 718=, 1: 740=, 



1: 509, 1: 521. 
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Cross Reference Listing: 



Beginning of file: HDISK.TEXT 



1. UNIT HDISK; 
2. 
3. 

4 . {By Dave Of fen } 

5. { Copyright 1983, Apple Computer Inc. } 

6. 

7. { For Profile compatible drives up to 32MB. For larger drives, make 

8 . the following changes : 

9 . - change assembly language routine in PROFASM 

10. so that checksum is not embedded in header. 

ii. j 

12. 

13. {By Wendell Henry 1/17/83 } 

14 . { o Convert this driver from a configurable Profile driver to a resident } 

15. { generic driver of hard disks of Apple format. A device specific } 

16. { configurable driver is called by HDISK. 
17. 

18 . INTERFACE 
19. 

20 . USES 

21. {$U object/driverdefs.obj} 

22. driverdefs, 

23. {$U object/hwint.obj} 

24. hwint, 

25. {$U object/sysglobal.obj} 

26. globalda, 

27. {$U object/procprims .obj } 

28. proc_prims, 

29. {$U object/mmprim.obj } 

30. mmprimitives , 

31. {$U object/asynctr .obj } 

32. asynctr, 

33. {$U object/genio.obj} 

34. genio; 
35. 

36. 

37. {$IFC 0S15} 

38. 

39. procedure USE_HDISK( configptr: ptrdevrec) ; 

40. 

41. procedure CALL_HDISK( var error: int2 ; configptr: ptrdevrec; 

42 . parameters : param_ptr) ; 

43. 

44 . procedure IODONE ( drivecb_j?tr : hdiskcb_ptr ; prev_err : integer) ; 

45. 

46. function OKXFERNEXT( drivecb_j>tr : hdiskcb_ptr) : integer; 

47. 

48. {$ENDC} 

49. 

50 . function HDISKIO ( parameters : param_ptr ) : integer ; 

51. 

52. 

53 . IMPLEMENTATION 

54. 

55. {$S krgenio) 

56. 

57. {$IFC not debug2) 

58. {$R-} { rangecheck off unless debug mode } 

59. {$ENDC> 
60. 

61 . CONST 

62. syserrbase = 10650; 

63. errbase = 650; { error number base } 

64. premenderr = 658; { premature end of file in chained header record } 

65. vfyerr =659; { header read verify error } 

66 . ignorerr = 661 ; { error code when get timer interrupt requiring no action } 

67. cserr = -663; { data is returned but contains checksum or crc error } 

68. hd_err = 654; { hard error from profile itself } 

69. wait_int =1; { wait-for-next- interrupt error code } 
7 . readcmd = ; { read command } 

71. writecmd =1; { write command } 
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72. 

73. 

74. function LOGGING: boolean; external; 

75. 

76. procedure LOG(var errnum: integer; ptr_arr: longint) ; external; 

77. 

78. procedure START_DISK (drivecb_j?tr : hdiskcb_ptr) ; forward; 

79. 

80. procedure START_NEW_REQ.UEST (drivecb_ptr : hdiskcb_ptr) ; forward; 

81. 

82. procedure CALL_HDISK; external; 

83 . 

84. procedure USE_HDISK(* configptr: ptrdevrec *) ; 

35 _ /************************************************************} 

86. {* 
*> 

87. {* Description: The device is a hard disk with Apple format *} 

88. {* sectors and will be using HDISK to handle *} 

89. {* sector headers. 



1: 
1: 
1: 
*} 
1: 90. {* 

*> 
1: 91. {* Input Parameters: configptr points to configinfo entry. *} 

1: 92. {* 

*> 
1 : 93 . { * Output Parameters : none 

1: 94. {* 

*> 

1 ; 95 _ /************************************************************} 

1 : 96 . var 

1: 97. ext_j?tr: A ext_diskconfig; 

1: 98. 

1 : 99 . begin 

1: 100. ext_j?tr := pointer (configptr A .ext_addr) ; 

1: 101. ext_j>tr A .hentry_j>t := ord(@HDISKIO) ; { HDISKIO can now be called } 

1: 102. end; { USE_HDISK } 

1: 103. 

1: 104. 

1: 105. 

1: 106. procedure FINISH_REQ( drivecb_ptr: hdiskcb_ptr; success_f lag : boolean; 

1: 107. error: integer); 

1; 108. /************************************************************} 

1: 109. {* 
*} 

1: 110. {* Description: Finish current request. *} 

1: 111. {* 
*} 

1: 112. {* Input Parameters: drivecb_ptr points to control block. *} 

1: 113. {* 
*} 

1: 114. {* Output Parameters: none *} 

1: 115. {* 
*} 

1: 116. {* Side Effects: none *} 

1: 117. {* 
*} 

1: 118. {* Special Conditions of use: appropriate interrupts must *} 

1: 119. {* be off 

*} 

1: 120. {* 
*} 

1: 121. {* Error Conditions: none *} 

1: 122. {* 
*} 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



123. J************************************************************} 

124. 

125. 

126. VAR 

127. errnum: integer; 

128. succ_f: boolean; 
129. 

130 . begin 

131 . with drivecb_j?tr A , cur_info_ptr A do 

132 . begin 

133. succ_f := success_flag; 

134 . 
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1 : 135 . with req_hd_j?tr A do 

1 : 136 . if operatn <= 1 then 

1 : 137 . begin { read or write request } 

1 : 138 . if suco_f then 

1 : 139 . begin 

1: 140. if io_mode = chained_hdrs then 

1: 141. xfer_count := xfer_count + sof t_hdr . dataused 

1: 142. else 

1: 143. xfer_count := xfer_count + 512; 

1:144. if worstwarning <> then 

1 : 145 . begin 

1: 146. hard_error := worstwarning; 

1: 147. succ_f := false 

1: 148. end 

1: 149. end 

1: 150. else 

1 : 151 . begin { unsuccessful } 

1 : 152 . hard_error : = error ; 

1: 153. 

1: 154. {$IFC debug2} 

1: 155. if TRACE (DD, 1) then 

1: 156. writelnf'*** PROFILE ERROR #: ', hard_error) ; 

1: 157. {$ENDC} 

1: 158. 

1: 159. end; 

1: 160. 

1: 161. UNFREEZE_SEG(buff_rdb_ptr) ; { allow data to move } 

1: 162. ADJ_IO_CNT (false, buf f_rdb_ptr) ; { allow data to be swapped } 

1: 163. end 

1: 164. else 

1: 165. hard_error := error; 

1: 166. 

1: 167. UNBLK_REQ(req_hd_ptr, succjf ) ; 

1: 168. 

1: 169. { remove from the top of the queue } 

1: 170. 

1: 171. DEQUEUE (req_hd_j>tr A .dev_chain, b_sysglobal_ptr) ; 

1: 172. req_hd_ptr := CHAIN_FORWARD (req_hd_ptr A .dev_chain) ; { new head of request list } 

1: 173. cur_num_requests := cur_num_requests - 1; 

1 : 174 . if cur_num_requests > then 

1 : 175 . begin 

1: 176. if req_hd_j?tr = dummy_req_ptr then 

1: 177. begin { if dummy at head, skip over it and reverse its cylinder number } 

1: 178. dummy_req_ptr A . reqspec_inf o := dummy_req_ptr A . reqspec_inf o + 

1: 179. ~ $80000000; 

1: 180. req_hd_ptr := CHAIN_FORWARD (dummy_req_ptr A .dev_chain) ; 

1: 181. end; 

1 : 182 . START_NEW_REQUEST (drivecb_ptr) ; 

1: 183. end 

1: 184. else 

1 : 185 . if int_j?rio = winints then 

1: 186. DISKSYNC (false) ; { allow contrast changes after I/O } 

1: 187. end 

1: 188. end; { FINISH_REQ } 

1: 189. 

1: 190. procedure NEXT_HDR( var info: disk_extend; last: boolean) ; 

1; 191 _ /************************************************************} 

1: 192. {* 
*) 

1: 193. {* Description: Update the next software header. *} 

1: 194. {* 
*) 

1: 195. {* Input Parameters: Info is the request block extension *} 

1: 196. {* containing the software header to be updated. Last is *} 

1: 197. {* true if this is the last header to be updated for this *} 

1: 198. {* request. Used by WRITES only. 

1: 199. {* 
*) 

1: 200. {* Output Parameters: The updated soft_hdr in the request *} 

1: 201. {* 
*) 

1: 202. {* Side Effects: none 

1: 203. {* 
*) 

1: 204. {* Special Conditions of use: none 

1: 205. {* 
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m 

1: 206. {* Error Conditions: none 

1: 207. {* 
*} 

1; 208. J************************************************************} 

1: 209. 

1 : 210 . begin 

1: 211. with inf o . sof t_hdr do 

1 : 212 . begin 

1: 213. bkwdlink := abspage; 

1: 214. abspage := abspage + 1; 

1: 215. relpage := relpage + 1; 

1: 216. if last then 

1: 217. begin 

1: 218. fwdlink := info.last_fwd_link; 

1: 219. dataused := inf o . last_data_used 

1 : 220 . end 

1: 221. else 

1: 222. fwdlink := abspage + 1 

1: 223. end 

1: 224. end; { NEXT_HDR } 

1: 225. 

1: 226. 

1: 227. function OKXFERNEXT(* drivecb_ptr: hdiskcb_ptr) : integer *) ; 

1: 228. { Called by device specific driver to prepare for transfer of next sector } 

1: 229. { from the disk. Headers and data pointers will be updated as needed. } 

1 : 230 . { Any errors found in sector just transferred will be returned as a non- } 

1: 231. { zero return which should terminate the transfer. 

1: 232. 

1: 233. var 

1: 234. error: integer; 

1: 235. 

1 : 236 . begin 

1: 237. with drivecb_j?tr A , cur_info_ptr* do 

1 : 238 . begin 

1: 239. error := 0; 

1: 240. sect_left := sect_left - 1 ; 

1: 241. 

1 : 242 . if io_mode = chained_hdrs then 

1 : 243 . begin { reading using chained headers } 

1 : 244 . with sof t_hdr do 

1: 245. if (version <> sof t_hdr. version) or 

1: 246. (fileid <> sof t_header . f ileid) or 

1: 247. (relpage <> sof t_header .relpage) then 

1: 248. begin { verify error } 

1: 249. error := vfyerr; 

1: 250. end 

1: 251. else 

1 : 252 . begin { verifies ok } 

1: 253. if (fwdlink = -1) then 

1: 254. if sect_left > 1 then 

1 : 255 . begin { premature end of chain } 

1: 256. error := premenderr; 

1 : 257 . xf er_count : = xf er_count + dataused 

1: 258. end 

1: 259. end 

1: 260. end; { chained headers } 

1: 261. 

1: 262. if error = then 

1: 263. begin 

1: 264. if read_flag then 

1: 265. case raw_header_ptr A .datastat of 

1: 266. datamaybe: if worstwarning = then 

1: 267. worstwarning := -626; 

1: 268. databad: if worstwarning <> cserr then 

1: 269. worstwarning := -625; 

1: 270. end; { case raw_header } 

1: 271. 

1: 272. if (sect_left > 0) then 

1 : 273 . begin { setup for next sector } 

1: 274. blkno := blkno + 1; 

1: 275. xfer_count := xfer_count + 512; 

1: 276. x_leng := xfer_count; 

1 : 277 . case io_mode of 

1: 278. with_header: 

1: 279. NEXT_HDR(cur_info_j>tr A , sect_left = 1); 
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1: 280. raw_io: 

1: 281. raw_header_jptr := pointer (ord(raw_header_ptr) + 24); 

1 : 282 . chained_hdrs : 

1: 283. sof t_header . relpage := sof t_header . relpage + 1 

1 : 284 . end { case io_mode } 

1: 285. end 

1: 286. end; 

1: 287. 

1: 288. okxfernext := error; 

1: 289. 

1: 290. end { with drivecb_j?tr , cur_info_ptr } 

1: 291. end; {OKXFERNEXT} 

1: 292. 

1: 293. procedure IODONE (* drivecb_ptr: hdiskcb_j?tr ; prev_err: integer *) ; 

1; 294. J************************************************************} 

1: 295. {* 
*} 

1: 296. {* Description: Continue I/O request after call to driver. *} 

1: 297. {* 
*} 

1: 298. {* Input Parameters: drive_cb_ptr points to control block *} 

1: 299. {* 
*} 

1: 300. {* Output Parameters: none *} 

1: 301. {* 
*} 

1: 302. {* Side Effects: *} 

1: 303. {* 
*} 

1: 304. {* Special Conditions of use: appropriate interrupts must *} 

1: 305. {* be off *} 

1: 306. {* 
*> 

1 : 307 . { * Error Conditions : * } 

1: 308. {* 
*} 

1; 309. I ************************************************************ 

1: 310. LABEL 

1: 311. 1; 

1: 312. 

1: 313. VAR 

1 : 314 . parm: params ; 

1 : 315 . success_f lag : boolean ; 

1 : 316 . err: integer; 

1 : 317 . disk_log_rec: record 

1: 318. code: intl; 

1 : 319 . rd_f lag : boolean ; 

1: 320. slot: intl; 

1: 321. chan: intl; 

1 : 322 . er : integer ; 

1: 323. estat: longint; 

1 : 324 . dev: integer; 

1: 325. end; 

1: 326. 

1 : 327 . begin 

1: 328. with drivecb_ptr A , cur_info_ptr A do 

1: 329. begin 

1: 330. if req^hd^jptr A . operatn > 1 

1: 331. then FINISH_REQ(drivecb_jptr, prev_err = 0, prev_err) { non I/O operation } 

1: 332. else { I/O operation } 

1 : 333 . 1 : case prev_err of 

1: 334. 0: begin { successful operation } 

1: 335. if sect_left = then 

1: 336. begin { all sectors have been transferred } 

1: 337. FINISH_KEQ(drivecb_j>tr, true, 0) ; 

1: 338. end 

1: 339. else 

1 : 340 . begin { sectors still to be transferred } 

1: 341. success_flag := true; 

1: 342. if read_flag then 

1 : 343 . begin 

1: 344. if io_mode = chained_hdrs then 

1 : 345 . begin 

1: 346. with soft_hdr do 

1: 347. if (version <> soft_header. version) or 

1: 348. (fileid <> soft header . fileid) or 



Page 93 of 141 



349 


350 


351 


352 


353 


354 


355 


356 


357 


358 


359 


360 


361 


362 


363 


364 


365 


366 


367 


368 


369 


370 


371 


372 


373 


374 


375 


376 


377 


378 


379 


380 


381 


382 


383 


384 


385 


386 


387 


388 


389 


390 


391 


392 


393 


394 


395 


396 


397 


398 


399 


400 


401 


402 


403 


404 


405 


406 


407 


408 


409 


410 


411 


412 


413 


414 


415 


416 


417 


418 


419 


420 


421 


422 


423 


424 



Device Drivers Manual Alpha Draft -- 1 1 January 1984 

(relpage <> sof t_header.relpage) then 
begin { verify error } 

prev_err := vfyerr; 
success_flag := false 
end 
else { verifies ok } 

if (fwdlink = -1) then 
if sect_left > 1 then 
begin { premature end of chain } 
prev_err := premenderr; 
success_flag := false; 
xfer_count := xfer_count + dataused 
end; 
end; { chained headers } 

if success_flag then 

case raw_header_jptr A . datastat of 

datamaybe: if worstwarning = then 

worstwarning := -625; 
databad: if worstwarning <> cserr then 

worstwarning := -625; 
end; 
end ; { read_mode } 

{ next complete previous request if it ' s done . } 
{ and start up next disk I/O, if any } 

if (sect_left > 1) and success_flag then 
begin { update current request } 
sect_left := sect_left - 1; 
blkno := blkno + 1; 
xfer_count := xfer_count + 512; 
x_leng := xfer_count; 
case io_mode of 

with_header : 

NEXT_HDR(cur_info_ptr A , sect_left = 1) ; 
raw_io : 

raw_header_ptr := pointer (ord(raw_header_ptr) + 24); 
chained_hdrs : 

sof t_header . relpage := sof t_header. relpage + 1; 
end; 

START_DISK(drivecb_ptr) ; 
end 
else 

FINISH_REQ(drivecb_jptr, success_flag, prev_err) ; 

end; { sectors still to be transferred } 
end; 

wait_int: { nothing to do but wait for next interrupt } 
begin 
end; 

otherwise 

begin { got error } 

restrt_count := restrt_limit; { hard error - prevent retries } 
if LOGGING then 

with disk_log_rec do 
begin 

code := -3; 
rd_flag := read_flag; 
with config_addr A do 
begin 

slot := slot_no; 
chan : = iochannel ; 
dev := device_no; 
end; 

er := prev_err; 
estat := 0; 

L0G(err, ord(@disk_log_rec) ) { write error to log file } 
end; 

restrt_count := restrt_count + 1; 
if restrt_count <= restrt_limit then 
begin 

total restarts := total restarts + 1; 
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1: 425. START_DISK (drivecb_ptr ) ; { do it again from the top } 

1: 426. end 

1 : 427 . else { exhausted the retries available } 

1: 428. if prev_error = cserr then 

1: 429. begin 

1: 430. prev_error := 0; 

1: 431. worstwarning := cserr; 

1: 432. goto 1 

1: 433. end 

1: 434. else 

1: 435. FINISH_REQ (drivecb_j>tr , false, prev_err) ; { quit if too } 

1: 436. 

{ many errors } 

1: 437. 

1: 438. end; 

1: 439. end; { case } 

1: 440. end; 

1: 441. end; { IODONE } 

1: 442. 

1: 443. 

1: 444. procedure START_DISK(* drivecb_ptr, hdiskcb_ptr *) ; 

1; 445 _ 1 ************************************************************} 

1: 446. {* 
*} 

1: 447. {* Description: Start a read or write of one sector on a *} 

1: 448. {* hard disk. *} 

1: 449. {* 
M 

1: 450. {* Input Parameters: drivecb_ptr points to control block *} 

1: 451. {* 
*} 

1 : 452 . { * Output Parameters : none * } 

1: 453. {* 
*} 

1: 454. {* Side Effects: *} 

1: 455. {* 

M 

1: 456. {* Special Conditions of use: appropriate interrupts must *} 

1: 457. {* be off *} 

1: 458. {* 
*} 

1: 459. {* Error Conditions: *} 

1: 460. {* 
*} 

1; 461. /************************************************************} 

1: 462. VAR 

1: 463. parm: params ; 

1: 464. errnum: integer; 

1: 465. 

1: 466. begin 

1: 467. with drivecb_j?tr A , cur_info_ptr A do 

1: 468. begin 

1: 469. with parm do 

1: 470. begin 

1: 471. fnctn_code := hdskio; 

1: 472. if req_hd_j?tr A . operatn <= 1 then 

1 : 473 . begin { I/O operation } 

1: 474. if read_flag 

1: 475. then c_cmd := readcmd 

1: 476. else c_cmd := writecmd; 

1: 477. c_sector := blkno; 

1: 478. end; 

1: 479. CALLDRIVER (errnum, config_addr, Sparm) ; { call driver to start I/O } 

1: 480. end; { with } 

1: 481. end; 

1: 482. end; { start_disk } 

1: 483. 

1: 484. 

1: 485. procedure STfiRT_NEW_REQUEST (* drivecbj>tr , hdiskcb_ptr *) ; 

1; 486. { ************************************************************} 

1: 487. {* 

*} 

1: 488. {* Description: Initialize control block and make first I/O *} 

1: 489. {* call for the request at the head of the drive's queue *} 

1: 490. {* 
*} 
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1: 491. {* Input Parameters: drivecb_ptr points to this drive's variables *} 

1: 492. {* 
*} 

1: 493. {* Output Parameters: none *} 

1: 494. {* 
*} 

1: 495. {* Side Effects: Unit globals : num_sectors_left, *} 

1: 496. {* cur_inf o_ptr , req_hd_ptr *} 

1: 497. {* Request changed from active to in_service *} 

1: 498. {* 
*} 

1: 499. {* Special Conditions of use: required ints must be off. *} 

1: 500. {* 
*} 

1: 501. {* Error Conditions: *} 

1: 502. {* 
*} 

1; 503. I ************************************************************ 

1: 504. 

1: 505. VAR 

1:506. er : integer ; 

1: 507. 

1: 508. begin 

1: 509. with drivecb_jstr A do 

1 : 510 . begin 

1: 511. 

1: 512. { set up global vars for this request } 

1: 513. 

1: 514. req_hd_ptr A . reqstatus . reqsrv_f := in_service; { from active to in_service } 

1: 515. cur_info_ptr := pointer (req_hd_ptr A .req_extent) ; 

1: 516. if req_hd_ptr A . operatn > 1 then 

1: 517. begin { non I/O operation } 

1: 518. START_DISK(drivecb_j>tr) ; 

1: 519. end 

1: 520. else 

1: 521. begin { I/O operation } 

1: 522. with cur_info_ptr A do 

1 : 523 . begin 

1: 524. 

1: 525. { next try to lock the data buffer in memory } 

1: 526. 

1: 527. FREEZE_SEG(er, buf f_rdb_ptr, buff_offset, ord(req_hd_ptr) , 

1: 528. resolved_addr) ; 

1: 529. if er = then { lock worked } 

1 : 530 . begin 

1: 531. sect_left := num_chunks; 

1: 532. restrt_count := 0; 

1: 533. worstwarning := 0; 

1: 534. raw_header_ptr := @soft_hdr; 

1: 535. raw_data_ptr := resolved_addr; 

1: 536. x_leng := xfer_count; 

1: 537. case io_mode of 

1 : 538 . raw_io: 

1: 539. begin 

1: 540. raw_header_ptr := pointer (resolved_addr) ; 

1: 541. if num_chunks = 1 then 

1: 542. raw_data_ptr := resolved_addr +24 { speed optimization } 

1: 543. else 

1: 544. raw_data_ptr := resolved_addr + ord4 (24) *num_chunks 

1 : 545 . end; 

1: 546. 

1: 547. chained_hdrs : soft_header := soft_hdr; { remember which header to match } 

1 : 548 . end; { case } 

1: 549. 

1: 550. START_DISK(drivecb_j)tr) ; 

1: 551. end 

1 : 552 . end { with cur_inf o_ptr } 

1: 553. end; 

1 : 554 . end { with drivecb_ptr } 

1 : 555 . end; { start_new_request } 

1: 556. 

1: 557. 

1: 558. function HDISKI0(* parameters: param_jptr) : integer *) ; 

1; 559. i ************************************************************ \ 

1: 560. {* 
*> 
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{ * Description : HDISKIO is the generic device driver for all* } 

{* hard disks with the Apple format. Device *} 

{* specific activities will be passed on to the*} 

{ * appropriate device driver . 

{* 

{* Input Parameters: Each function code request has its own *} 

{ * input parameters . 



{ * Output Parameters : none 
{* 

{* Side Effects: The request is added to the queue for the *} 
{* appropriate drive. If no request is busy, the request *} 
{* is started up immediately. 
{* 



{* Special Conditions of use: none 

{* 

{ * Error Conditions : 
{* 



************************************************** 



VAR 

parm : params ; 

p_extdevrec : A ext_diskconf ig; 

drivecb_ptr : hdiskcb_jptr ; 

ext_ptr : extdptr_type ; 

ints : intson_type ; 

lef t_sort_ptr , right_sort_ptr , head_sort_ptr : reqptr_type ; 

new_sec , lef t_sec , right_sec : longint ; 

errnum : integer ; 

{$S init} 

procedure HINITIT; 
J**************************************************************} 

{* Internal subroutine in initialize segment for profile init *} 
/**************************************************************} 

TYPE 

initrec = record 

index : integer ; 
end; 

VAR 

chan : integer ; 
initrec_ptr : ""initrec ; 
newdrivecb , newreqblk : absptr ; 

begin 

errnum := 0; 

chan : = parameters" 1 . conf igptr A . iochannel ; 

if chan >= then INTSOFF(slotints, ints) 

else INTSOFF (winints , ints) ; 
drivecb_ptr : = pointer (parameters" 1 . conf igptr A . cb_addr ) ; 
if drivecb_ptr = nil then 
begin { not initialized yet } 

errnum := errbase +3; { insufficeint sysglobal space } 
if GETSPACE(sizeof (hdisk_cb) , b_sysglobal_ptr, newdrivecb) then 
if GETSPACE(sizeof (reqblk) , b_sysglobal_ptr, newreqblk) then 
begin 



errnum 



0; 



parameters" .conf igptr A .cb_addr := newdrivecb; 
drivecb_ptr := pointer (newdrivecb) ; 
with drivecb_ptr A do 
begin 

conf ig_addr : = parameters"* . conf igptr ; 

ext_ptr := ord(nil) ; 

v_flag := false; { default is don't re-read all writes } 

total_res tarts : = ; 

cur_num_requests := 0; 

restrt_limit := 4; { max times an I/O is retried } 

if chan >= then int_prio := slotints 
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631 


632 


633 


634 


635 


636 


637 


638 


639 


640 


641 


642 


643 


644 


645 


646 


647 


648 


649 


650 


651 


652 


653 


654 


655 


656 


657 


658 


659 


660 


661 


662 


663 


664 
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667 


668 


669 


670 
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672 
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674 
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676 
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678 


679 


680 
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682 


683 


684 


685 


686 


687 


688 


689 


690 


691 


692 


693 


694 


695 


696 


697 


698 


699 


700 


701 


702 


703 


704 


705 


706 



else int_jprio := winints ; 
dummy_req_ptr := pointer (newreqblk) ; 
req_hd_ptr := dummy_req_ptr ; 
with dummy_req_ptr A do 
begin 

dev_chain . f wd_link := newreqblk - b_sysglobal_ptr + 

sizeof (rb_headT) ; 
dev_chain . bkwd_link : = dev_chain . f wd_link ; 
reqspec_info := -1; { initialize dummy cylinder # } 
reqstatus . reqsrv_f := active; 
reqstatus . reqabt_f : = false ; 
block_p_f := false 
end; 
end; 

{ initialize device specific driver } 
with parameters"" do 
begin { reuse parameter block } 
fnctn_code := hdinit; 

CALLDRIVER (errnum, configptr, parameters) ; 
end; { with } 
end; 
end; 
INTSON(ints) ; 

{$IFC debugl} 
if TRACE (DD,1) then 
if errnum <> then 
begin 

with parameters"" .configptr A do 
begin 

writeln (' Error ' , errnum, ' initializing hard disk: ') ; 
writeln ( ' Slot= ' , slot_no, ' chan=' , iochannel, ' dev=' , device_no) ; 
end; 
end; 
{$ENDC} 

HDISKIO := errnum; 
end; { hinitit } 

{$S krgenio} 

begin {hdiskio } 

drivecb_ptr := pointer (parameters'^ .configptr"" . cb_addr) ; 

case parameters"" . fnctn_code of 

dskio : begin 

HDISKIO := 0; {no errors } 
with parameters"" . req A do 
begin 

ext_ptr := pointer (req_extent) ; 

new_sec : = ext_ptr A . blkno ; 

reqspec_info := new_sec; 
end; 

{$IFC debugl} 

if TRACE (DD, 10) then 

if ext_ptr A . read_f lag then 

writeln ( ' Reading Profile block# = ' , new_sec) 
else 

writeln ( 'Writing Profile block# = ', new_sec) ; 
{$ENDC} 

{* Add the new request to the device queue, sorted by sector 

* Every queue contains a 'dummy' request whose sector number is either 

* smaller than any valid sector (-1) or larger than any valid sector 

* ($7FFFFFFF) . The sector numbers of the requests along the device queue 

* monotonically increase or decrease until the dummy is reached. The sector 

* numbers then reverse directions and monotonically decrease or increase 

* until they reach the same sector number as the request at the head of 

* the queue. This ordering of the queue allows the interrupt handler to 

* pull the next request from the top of the queue, maintaining optimal seek 
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* ordering. The drive will pick up all requests which are in the same 

* direction of head travel , before it services requests in the other direction . 

* The dummy request is at the head of the queue only when the queue is empty. *} 

with drivecb_ptr A do 
begin 

INTSOFF(int_j>rio, ints); 

lef t_sort_ptr := req_hd_j?tr; 

head_sort_ptr := left_sort_ptr; { remember where we started } 

if cur_num_requests = then { point head to new req } 

req_hd_ptr : = parameters" 1 . req 
else 
begin 

lef t_sec : = lef t_sort_ptr A . reqspec_inf o ; 

if left_sec = new_sec then { past dummy if same as current sector } 

lef t_sort_ptr := dummy_req_ptr ; 
right_sort_ptr := CHAIN_FORWARD ( lef t_sort_ptr A .dev_chain) ; 
right_sec : = right_sort_ptr A . reqspec_inf o ; 

{ look for insertion point } 

while (right_sort_ptr <> head_sort_ptr) and 

( (right_sec = new_sec) or ( (new_sec > right_sec) and (new_sec > lef t_sec) ) 
or ( (new_sec < right_sec) and (new_sec < lef t_sec) ) ) do 
begin { chain forward one link if not at insertion point } 

lef t_sort_ptr := right_sort_ptr; 

left_sec := right_sec; 

right_sort_ptr := CHAIN_FORWARD (left_sort_ptr A .dev_chain) ; 

right_sec := right_sort_ptr A . reqspec_inf o ; 
end 
end; 

{ insert it } 

cur_num_requests := cur_num_requests + 1; 

ENQUEUE (parameters A . req A . dev_chain , lef t_sort_pointer A . dev_chain , 

b_sysglobal_ptr) ; 
if cur_num_requests = 1 then 
begin 

if int_prio = winints then { built-in parallel port } 

DISKSYNC (true) ; { prevent contrast changes during I/O } 
START_NEW_REQUEST (drivecb_ptr) 
end; 

INTSON(ints) 
end { with } 
end; { dskio } 

dinit: HINITIT; { call internal subroutine in initialize segment } 

ddown: { down a device } 
begin 

if parameters" .configptr A . slot_no >= then INTSOFF(slotints, ints) 

else INTSOFF (winints , ints); 
if drivecb_ptr A . cur_num_requests <> 
then hdiskio:= errbase { + ???? } 
else 

begin { no requests outstanding - shut the device down } 
with parameters A do 
begin { reuse parameter block } 
fnctn_code := hddown; 

CALLDRIVER(errnum, configptr, parameters) ; 
end; 

RELSPACE(ord(drivecb_ptr A .req_hd_ptr) , b_sysglobal_ptr) ; 
RELSPACE(ord(drivecb_j?tr) , b_sysglobal_ptr) ; 
parameters*" .configptr A . cb_addr := ord(nil) ; 
hdiskio := 0; 
end; 

INTSON(ints) 
end; { ddown } 

reqrestart : begin 
HDISKIO := 0; 

{$IFC debug2} 

if TRACE (DD, 5) then 

writeln(' Profile restarting request.'); 
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783. 


784. 


785. 


786. 


787. 


788. 


789. 


790. 


791. 


792. 


793. 


794. 


795. 


796. 


797. 


798. 


799. 



{$ENDC} 

INTSOFF (drivecb_ptr * . int_prio , ints) ; 

START_NEW_REQUEST (drivecb_ptr) ; { no other requests present } 

INTSON(ints) ; 

end; {reqrestart} 

otherwise 

HDISKIO := errbase +6; { illegal function code or not implemented yet } 



end; { case } 
end; {HDISKIO} 



end. 



End of File: HDISK.TEXT 



Directory of files in Cross Reference; 

1: HDISK.TEXT 
level = 1 . 



abspage 1 
absptr 1 
active 1 
adj_io_c 1 : 
asynctr 1 : 
b_sysglo 1 
bkwd_lin 1 
bkwdlink 1 
blkno 1 : 
block_p_ 1 
buff_off 1 
buff_rdb 1 
c_cmd 1 : 
c_sector 1 : 
calldriv 1 : 
cb_addr 1 : 
chain_f o 1 : 
chained_ 1 : 
chan 1 : 
code 1 : 
conf ig_a 1 : 
conf igpt 1 : 

1 
cserr 1 : 
cur_inf o 1 : 
cur_num_ 1 : 

1 
databad 1 : 
datamayb 1 
datastat 1 
dataused 1 
dd 1 
ddown 1 : 
dequeue 1 : 
dev 1 
dev_chai 1 : 

1 
device_n 1 : 
dinit 1 : 
disk_ext 1 
disk_log 1 
disksync 1 
drivecb 1 



1 
1 
1 
driverde 1 : 
dskio 1 : 
dummy_re 1 : 
enqueue 1 : 



213, 
605. 
640. 
162. 

171, 

638=. 

213=. 
274=, 

642=. 

527. 

161, 
475=, 

477=. 

479, 
612, 

172, 

140, 
321*, 
318*, 

410, 

660, 

131, 

173=, 
760. 
268, 

266, 

265, 

141, 
: 155, 
756. 
171. 
: 324*, 

171, 
: 742, 

414, 
754. 

190. 

317*, 

186, 

328, 
509, 
676=, 

680. 

176, 
742. 



1: 214= 



32. 

1: 616, 



274, 



1: 214, 



617, 



1: 406, 
1: 747. 
44*, 1: 



331, 
518, 
711, 



1: 178, 



1: 222. 



636, 



1: 379=, 1: 379, 



743, 



477, 



769, 



1: 162, 
1: 476=. 

1: 650, 

1: 620=, 

1: 180, 

1: 242, 

1: 413=, 

1: 408=. 

1: 479, 

39*, 1: 

1: 676, 

67*, 1: 

1: 237, 

1: 173, 

1: 368. 
1: 366. 
1: 365. 
1: 219=, 
1: 657, 



1: 414=. 
1: 172, 1: 

1: 742. 
1: 663. 



527. 



767. 

676, 1 

723, 1 

282, 1 

603*, 1 



771= 
734. 
344, 
609= 



1: 387, 
1: 610, 



1: 547. 
1: 630. 



1: 624=. 
41*, 1 

1 
268, 1 

1: 279 



100, 

758, 

368, 

1: 328, 



609, 
767, 
428, 



1: 174, 1: 628=, 



1: 384, 
1: 716, 



612, 

771. 

431. 
1: 467, 
1: 741=, 



1: 620, 1: 624, 



1: 515=, 1: 522. 



1: 650, 



741, 



744, 



180, 



1: 257, 1: 360. 
1: 690, 1: 781. 



636, 



638, 



638, 



723, 



46* 



178, 



337, 
550, 
748, 



180, 



78*, 
1 
1 

1 



1: 80* 
390, 
584*, 
760, 



1: 632=, 



106*, 
393, 
612=, 
769, 



633, 



131, 
425, 
613, 
770, 



182, 


1 


237 


435, 


1 


467 


621=, 


1 


622 


785, 


1 


786 



1: 634, 



722. 
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er 


1: 322* 


, 1: 416= 


, 




1 


506*, 


1 


527, 




1: 


529. 






err 1: 316* 


, 1: 418. 
























errbase 1 : 


63*, 1: 


615, 


1 


761, 


1 


791. 












errnum 1 : 


76*, 1: 


127*, 


1 


464*, 


1 


479, 




1: 


589*, 


1: 


608= 


1: 650, 


1: 658, 






1 


662, 


1 


668, 




1: 


767. 






error 1 : 


41*, 1: 


107*, 


1 


152, 


1 


165, 




1: 


234*, 


1: 


239= 


1: 262, 


1: 288. 
























estat 1: 323*, 


1: 417=. 
























ext addr 1: 100. 


























ext disk 1 : 


97, 1: 


583. 




















ext_ptr 1 : 
extdptr 1 : 585 . 
external 1 : 


97*, 1: 
74, 1: 


100=, 
76, 


1 
1 


101, 


1 
82 


585* 




1: 


625=, 


1: 


684= 


fileid 1: 246, 


1: 246, 


1 


348, 


1: 348. 
















fnctn co 1: 471=, 


1: 649=, 






1 


678, 


1 


766= 












forward 1 : 


78, 1: 


80. 




















freeze s 1 : 527 . 


























fwd link 1: 636=, 


1: 638. 
























fwdlink 1: 218=, 


1: 222=, 


1 


253, 


1: 355. 
















genio 1 : 
getspace 1: 616, 
globalda 1 : 
hard err 1: 146=, 


34. 

1: 617. 

26. 

1: 152=, 






1 


156, 


1 


165= 












hd err 1 




68*. 
























hddown 1 


766. 


























hdinit 1 


649. 


























hdisk 1 




1. 
























hdisk_cb 1: 616. 


























hdiskcb 1 : 


44, 1: 


46, 


1 




78 


1: 


80, 


1: 


106, 


1: 


584. 


hdskio 1: 471. 


























head sor 1: 587*, 


1: 715=, 






1 


728. 
















hentry_p 1: 101=. 
hwint 1 : 


24. 
























ignorerr 1 : 
implemen 1 : 
in servi 1 : 514 . 


66*. 
53. 
























index 1 


599*. 


























info 1 


190*, 


1: 211, 


1 


218, 


1: 219. 
















initrec 1 


598*, 


1: 604. 
























initrec 1: 604*. 


























intl 1: 318, 


1: 320, 


1 


321. 




















int2 1 : 


41. 
























int_prio 1: 185, 


1: 630=, 






1 


631=, 


1 


713, 




1: 


746, 


1: 


785. 


interf ac 1 : 


18. 
























ints 1: 586*, 


1: 610, 


1 


611, 


1: 654, 






1: 713, 


1 


750, 






1: 774, 


1: 785, 






1 


787. 
















intsoff 1: 610, 


1: 611, 


1 


713, 


1: 758, 






1: 759, 


1 


785. 






intson 1 : 654 , 


1: 750, 


1 


774, 


1: 787. 
















intson t 1: 586. 


























io mode 1: 140, 


1: 242, 


1 


277, 


1: 344, 






1: 382, 


1 


537. 






iochanne 1: 413, 


1: 609, 


1 


663. 




















label 1: 310. 


























last 1: 190*, 


1: 216. 
























last dat 1: 219. 


























last_fwd 1: 218. 


























left sec 1: 588*, 


1: 720=, 






1 


721, 


1 


729, 




1: 


730, 


1: 


733= 


left sor 1: 587*, 


1: 714=, 






1 


715, 


1 


720, 




1: 


722=, 


1: 


723, 


1: 742. 


























mmprimit 1: 

new sec 1: 588*, 


30. 
1: 685=, 


1 


686, 


1: 692, 






1: 694, 


1 


721, 






1: 729, 


1: 730, 






1 


730. 
















newdrive 1 : 605* , 


1: 616, 


1 


620, 


1: 621. 
















newreqbl 1 : 605* , 
num chun 1: 531, 


1: 617, 
1: 541, 


1 
1 


632, 
544. 


1: 636. 
















operatn 1: 136, 
ord4 1: 544. 


1: 330, 


1 


472, 


1: 516. 
















p extdev 1 : 583* . 


























param_pt 1 : 
paramete 1 : 


42, 1: 
42*, 1: 




>0. 
50*, 


1 


609, 


1 


612, 




1: 


620, 


1: 


624, 


1: 660, 


1: 676, 






1 


678, 


1 


682, 




1: 


717, 


1: 


742, 


1: 767, 


1: 771. 
























params 1 
parm 1 


314, 
314*, 


1: 463, 
1: 463*, 


1 
1 


582. 
469, 


1: 479, 






1: 582*. 










pointer 1 


100, 
1: 676, 


1: 281, 
1: 684. 


1 


386, 


1: 515, 






1: 540, 


1 


612, 






premende '. 


L: 


64*, 1: 


2. 


>6, 


1 


358. 

















1: 615=, 1: 619= 
1: 249=, 1: 256= 



1: 685, 1: 691. 



1: 758, 1: 759, 



1: 729, 



1: 732=, 1: 734, 



1: 729, 



621, 



1: 647, 
1: 758, 



632, 



1: 650, 
1: 764, 
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prev_err 1 : 
1 
proc_pri 1 : 
ptr_arr 1 : 
ptrdevre 1 
raw_data 1 
raw_head 1 
raw_io 1 : 
rb_headt 1 : 
rd_flag 1: 
read_f la 1 : 
readcmd 1 : 
relpage 1 

1 
relspace 1 : 
req 1 
req_exte 1 : 
req_hd_p 1 : 
1 
1 
reqabt_f 1 : 
reqblk 1 : 
reqptr_t 1 
reqresta 
reqspec_ 
reqsrv_f 
reqstatu 
resolved 
restrt_c 
restrt_l 
right_se 
right_so 
sect lef 



sizeof 1 
slot 1 
slot_no 1 
slotints 1 
soft_hdr 1 
soft hea 1 



succ_f 
success 



syserrba 1 : 
total_re 1: 
trace 1 : 
unblk_re 1 : 
unfreeze 1 : 
unit 1 
v_flag 1 
version 1 
vfyerr 1 
wait_int 1 : 
winints 1 : 
with_hea 1 : 
worstwar 1 : 

1 
writecmd 1 : 
x_leng 1 : 
xfer_cou 1 : 

1 



535=, 

265, 
280, 

637. 
319*, 

264, 

215=, 

: 388= 
769, 

: 682, 
515, 
135, 

: 472, 

: 769. 
641=. 

617. 
587. 
777. 
178=, 
514=, 
514, 
528, 
404=, 
404, 
588*, 
587*, 
240=, 

: 378= 

616, 

320*, 

412, 
610, 
141, 
246, 

: 388, 

128*, 
106*, 

: 393. 

424=, 
155, 
167. 

161. 

626=. 
245, 



44*, 1: 331, 1: 331, 1: 333, 

1: 430=, 1: 435. 

28. 
76*. 

39, 1: 41. 

1: 542=, 1: 544=. 

1: 281=, 1: 281, 1: 365, 

1: 385, 1: 538. 



1: 351=, 1: 358=, 



1: 386=, 1: 386, 



1: 393, 1: 416, 



1: 534=, 1: 540= 



1: 691. 

1: 283=, 1: 283, 



1: 349, 1: 349, 



1: 409=. 
1: 342, 1: 409, 1: 474, 
70*, 1: 475. 
1: 215, 1: 247, 1: 247, 

1: 388. 
1: 770. 

1: 717, 1: 742. 

1: 684. 
1: 167, 1: 171, 1: 172=, 1: 172, 1: 176, 1: 180=, 1: 330, 

1: 514, 1: 515, 1: 516, 1: 527, 1: 633=, 1: 714, 1: 717= 



1: 178, 

1: 640=. 

1: 640, 

1: 535, 

1: 421=, 

1: 422, 

1: 724=, 

1: 723=, 

1: 240, 
1: 378, 
1: 617, 
1: 412=. 
1: 663, 

1: 630, 

1: 211, 

1: 247, 
1: 547= 
1: 133=, 

1: 133, 

62*. 

1: 424, 1: 627=. 
1: 657, 1: 690, 



1: 686=, 



720, 



724, 



1: 641. 
1: 540, 

1: 629=. 



1: 254, 

1: 637. 

758. 
758. 
244, 
283, 

138, 
315*, 



1: 542, 1: 544. 

1: 421, 1: 422, 1: 532=. 

1: 729, 1: 729, 1: 730, 

1: 724, 1: 728, 1: 732, 

1: 272, 1: 279, 1: 335, 

1: 384, 1: 531=. 



245, 
283, 

147=, 
341=, 



781. 



: 346, 


1: 


534 


: 347, 


1: 


348 


: 167. 






: 352=, 


1: 


359 



1: 733, 1: 735=. 

1: 734=, 1: 735. 

1: 356, 1: 376, 



1: 547. 
1: 349, 



364, 



1: 245, 1: 347, 
65*, 1: 249, 
69*, 1: 398. 
185, 1: 611, 1: 631, 
278, 1: 383. 
144, 1: 146, 1: 266, 
: 368, 1: 369=, 

71*, 1: 476. 
276=, 1: 381=, 1: 536=. 
141=, 1: 141, 1: 143=, 
276, 1: 360=, 



1: 347. 












: 351. 












1: 746, 






1: 


759. 




1: 267=, 






1: 


268, 


1: 269= 


: 431=, 


1: 


533= 








1: 143, 






1: 


257=, 


1: 257, 


: 360, 


1: 


380= 






1: 380, 



1: 366, 



381, 



1: 367=, 



1: 275, 
1: 536. 



Procedures 



call hdi 1 




41*, 1: 


82*. 














finish_r 1: 106*, 


1: 331, 


1: 337, 


1: 393, 




1: 


435. 






hinitit 1: 593*, 


1: 754. 
















iodone 1 : 


44*, 1: 


293*. 














log 1: 


76*, 1: 


418. 














next hdr 1 


190*, 


1: 279, 


1: 384. 














start di 1 




78*, 1: 


390, 


1: 425, 


1: 


444*, 




1: 


518 


start ne 1 




80*, 1: 


182, 


1: 485*, 


1: 


748, 




1: 


786 


use hdis 1 




39*, 1: 


84*. 















1: 550. 



Functions 
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hdiskio 1: 50*, 1: 101, 1: 558*, 1: 668=, 1: 681=, 1: 761=, 1: 772=, 1: 778=, 

1: 791=. 

logging 1: 74*, 1: 405. 

okxferne 1: 46*, 1: 227*, 1: 288=. 

Declaration Character : ' * ' 

Assignment Character : '=' 
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Cross Reference Listing: 



Beginning of file: PROFILE. TEXT 



1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
IS. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 



UNIT PROFDRVR; 



{ By Wendell Henry 1/17/83 } 

{ A device specific driver for the Profile. It uses the generic hard } 

{ disk driver HDISK } 

{ By Wendell Henry 8/23/83 } 

{ The driver has been extended to support the Widget device } 



INTERFACE 



USES 

{$U object/driverdefs .obj } 

driverdef s , 
{$U object/hwint.obj } 

hwint , 
{$U object/sysglobal .obj } 

globaldata , 
{$U object/procprims .obj } 

proc_prims , 
{ $U object/mmprim. obj } 

mmprimitives , 
{ $U object/synctr . obj } 

asynctr , 
{$U object/genio.obj } 

genio , 
{$U object/hdisk.obj} 

hdisk; 



function PROFILE (parameters : param_ptr) : integer; 
IMPLEMENTATION 



CONST 



errbase = 650; 
countlimit = 100; 

wait_int =1; 
ignorerr = 661 ; 
hd_err = 654 ; 
cserr = -663; 

{ Drive types } 
T_Profile = 0; 
T_Seagate = 1; 
T_Widget = 2; 



{ Driver commands } 
Readcmd = ; 
Writecmd =1; 
Forma tcmd = 2 ; 



{ 100 = 5 sees before timeout on 2-port } 

{ =12 sees on parallel } 
{ "wait for next interrupt" error code } 
{ error code when get timer error requiring no action } 



{ Extension to Drive_cb for Profile } 

(* NOTE: definitions marked with {**} have corresponding definitions in PROFASM *) 



ext_drive_cb = record 
{**} 
{**} 
{**} 
{**} 
{**} 
{**} 
{**} 
{**} 
{**} 



{ driver info for Profile hard disk } 
hwbase: longint; { base address of 6522 } 

hwstatus : longint; { addr of 6522 status register B 

remap_interleave : boolean ; { true if interleave remapped } 
command_buf f er : record { command buffer for profile } 
case integer of 
0: (cmd: 0. .2) ; { set value after storing "sector" } 
1: (sector: longint; retry_cnt: intl ; sparing_thresh: intl) ; 
end; 
checksum: integer; { temp storage during write } 



{ ** } expect_hs : intl ; 



{ internal storage for profasm } 
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72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 
89. 
90. 
91. 
92. 
93. 
94. 
95. 
96. 
97. 
98. 
99. 



drivetype : intl ; 
asm_s tate : integer ; 
errs tat : longint ; 
asmerr : integer ; 
last_hard_error : longint ; { 
counter : integer ; { 

discsize: longint; 
cxf ercnt : intl ; { 

csum_valid: intl; { 

nested_bdr : intl ; { 

extstat; array [0.. 15] of intl; 
cmd_buf: array [0.. 7] of intl; 



{ type of disk drive } 
{ state internal to asseihb lang } 
{ error returned from profile } 
{ err returned from assmbly routine } 
last error from errstat } 



used for timeout } 

{ device size from controller 
current transfer count } 
true if precomputed checksum valid } 
true if bad response being handled } 
{ 16 bytes for extended status } 
{ 8 bytes for sending widget cmds } 



end; 



100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 
126. 
127. 
128. 
129. 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
138. 
139. 
140. 
141. 
142. 
143. 
144. 
145. 
146. 
147. 



ptr_ext_drive_cb = A ext_drive_cb ; 

function GP_STATUS (via_addr : longint; var counter : integer ) : integer; external; 

procedure PROFASM(control_block: hdiskcb_j?tr) ; external; 

function PR0F_INIT (ext_cb: ptr_ext_drive_cb ; via_addr: longint; 

hwst_irb: longint; hwst_ddrb: longint) : integer; external; 

procedure START_N0NI0 (var errnum: integer; drivecb_ptr: hdiskcb_ptr) ; 
J*********************************************} 

{* Issue non-1/0 request to low level driver *} 

var 
extdrivecb_ptr : ptr_ext_drive_cb ; 
reqptr : reqptr_type ; 
bufaddr: longint; 



pointer (drivecb_ptr A .ext_ptr) ; 
, extdrivecb_ptr A , req_hd_ptr A do 



begin 

extdrivecb_ptr : = 
with drivecb_j?tr A 
begin 

reqstatus . reqsrv_f : = in_service ; 

cur_info_j?tr := pointer (req_extent) ; 

{ process format request } 

command_buff er . sector := ord(req_hd_ptr) +sizeof (reqblk) ; { data address } 

command_buf f er . cmd : = operatn ; 

asm_state := 0; 

PROFASM(drivecb_ptr) ; 

errnum := asmerr; 

if errnum <> then 

if errnum = wait_int then 

counter := countlimit; 
end; { with } 
end; { START_NONIO } 



procedure N0NI0_REQ (var errnum: integer; cmd: integer; devconfig: ptrdevrec) ; 
J******************************} 

{* Build a request for Format *} 
I******************************} 

var 

dr ivecb_ptr : hdi skcb_ptr ; 
reqaddr : absptr ; 
reqptr : reqptr_type ; 
ints : intson_type ; 
lef tlink : reqptr_type ; 
space : integer ; 

begin 

drivecb_ptr := pointer (devconfig A .cb_addr) ; 

errnum : = errbase + 3 ; { insufficient sysglobal space } 

space := sizeof (reqblk) ; 

if cmd = forma tcmd then 

space := space + 512; { extra space for spare table map } 
if GETSPACE (space, b_sysglobal_ptr , reqaddr) then 
begin 

errnum : = ; 

reqptr := pointer (reqaddr) ; 

with reqptr A , drivecb_ptr A do 

begin 

cfigptr := devconfig; 
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177 
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1: 202 
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} 
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1 
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1 
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1 
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1 
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1 


213 


1 


214 


1 


215 


1 


216 



{ this will also release data space } 



operatn := and; 
req_extent := ord(nil) ; 
with list_chain do 
begin 

fwd_link := ord(@fwd_link) - b_sysglobal_ptr; 

bkwd_link := fwd_link; 
end; 
LINK_TO_PCB(reqptr) ; 

{ add to device queue } 

INTSOFF(int_j)rio, ints) ; 

reqspec_inf o : = req_hd_ptr A . reqspec_inf o ; 

leftlink := pointer (req_hd_jptr A .dev_chain.bkwd_link - 

sizeof (rb_headT) + b_sysglobal_ptr) ; 
if req_hd_ptr = dummy_req_ptr then 

req_hd_ptr := reqptr; { place at head } 
cur_num_requests := cur_num_requests + 1; 

ENQUEUE (dev_chain, leftlink A .dev_chain, b_sysglobal_ptr) ; 
if cur_num_requests = 1 then 

START_NONIO(errnum, drivecb_ptr) ; 
INTSON(ints) ; 

if errnum = wait_int then 
begin 

BLK_REQ (reqptr, reqptr) ; 

{ process will block until the operation is done } 

if reqptr A .reqstatus . reqsuccess_f 
then errnum := 
else errnum := hd_err; 
end; 

CANCEL_REQ (reqptr) ; 
end; { with } 
end; 
end ; { NONIO_KEQ } 



function PROFILE (*parameteres : param_ptr) : integer *) ; 
j*********************************^ 



{* Description: PROFILE device -dependent user I/O request 
{* 

{* Input Parameters: Rqst is the partially initialized 

{* request block. Blno is the s-file block number. 

{* Rast A . reqspec_inf o [2] will hold the cylinder number. 

{* Rqst A . reqspec_inf o [1] points to disk-extend record 

{* which holds info necessary to do I/O to the disk. 

{* 

{ * Output Parameters : none 
{* 

{* Side Effects: The request is added to the queue for the *} 

{* appropriate drive. If no request is busy, the request *} 

{* is started up immediately. 
{* 

{* Special Conditions of Use: none 
{* 

{* Error Conditions: 
{* 

j**********************************^ 
label 20; 



var 
hwddrb : longint ; 
p_extdevrec : A ext_diskconf ig ; 
port_ptr : hdiskcb_ptr ; 
newextdrivecb : absptr ; 
p_extdrivecb : ptr_ext_drive_cb ; 
p_dc_rec : A dc_rec ; 
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ints : intson_type ; 
error: int2 ; 
parm : params ; 
response : integer ; 
i : integer ; 
operation : integer ; 

begin { PROFILE DRIVER } 
with parameters"" do 
begin 

port_ptr := pointer (conf igptr A .cb_addr) ; 

{ Preliminaries are done - now process function request } 
case fnctn_code of 

dinit: { first level of device initialization } 
begin 

USE_HDISK(configptr) ; { Use HDISK for handling sector headers } 

CALL_HDISK (error , conf igptr , parameters ) ; 

profile := error; 
end; { dinit } 

hdinit: { now initialize device } 
begin 

profile := errbase +3; { insufficient sysglobal space } 

if GETSPACE (sizeof (ext_drive_cb) , b_sysglobal_ptr, newextdrivecb) then 

begin 

p_extdrivecb := pointer (newextdrivecb) ; 
with p_extdrivecb A , conf igptr A do 
begin 

port_ptr A . ext_ptr : = newextdrivecb ; 

p_extdevrec := pointer (ext_addr) ; 

if iochannel >= then 

begin { attached to multi-port card } 

hwbase := iospacemmu * $20000 + ord4 ($4000) *slot_no + 

$2001 + $800 * iochannel; 
hwstatus := hwbase; 
hwddrb := hwstatus + $10; 
end 
else 
begin { attached to built-in port } 

hwbase := iospacemmu*$20000 + $0D801; 
hwstatus := hwbase + $400; 
hwddrb := hwstatus + 4; 
end; 

nested_bdr := 0; 

for i := to 15 do extstat[i] := 0; 
discsize := 0; 

{ assume the device is a profile } 
with p_extdevrec A do num_bloks := 9720; 
last_hard_err := 0; 
command_buf f er . retry_cnt := 10; 
command_buf f er . sparing_thresh := 3; 
remap_interleave : = true ; 
if iochannel < then DISKSYNC (true) ; 

response := -PROF_INIT (p_extdrivecb, hwbase, hwstatus, hwddrb) ; 
if iochannel < then DISKSYNC (false) ; 
profile := response; 
if (response <> 0) or (discsize <= 0) or (discsize > 30000) 

then drivetype : = T_Prof ile { set dirvetype to profile } 

else 

begin 

with p_extdevrec A do num_bloks := discsize-strt_blok; 
if drivetype <> then 
begin { widget } 

remap_interleave := false; 
drivetype := T_Widget; 
i ****************** TEMPORARY 
remap_interleave := true; 
drivetype := 1; 

******************* TEMPORARY} 
end 
else 
begin { Profile or Seagate } 

if discsize > 9728 then drivetype := T_Seagate; { 10MB Seagate } 
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1: 293. end; 

1: 294. end; 

1: 295. end; { with } 

1: 296. end; 

1: 297. end; {hdinit} 

1: 298. 

1: 299. hdskio: { start I/O to disk } 

1: 300. begin 

1 : 301 . operation : = port_ptr A . req_hd_jptr A . operatn; 

1: 302. if operation = formatcmd then 

1: 303. begin 

1: 304. START_NONIO (error, port_ptr) ; 

1: 305. profile := error; 

1: 306. end 

1: 307. else 

1: 308. begin 

1: 309. p_extdrivecb := pointer (port_jptr A . ext_jptr) ; 

1: 310. with p_extdrivecb A do 

1 : 311 . begin 

1 : 312 . command_buf f er . sector : = c_sector ; 

1: 313. command_buffer.cmd := c_cmd; { set after sector is stored! } 

1: 314. asm_state := 0; { initialize state machine } 

1: 315. PROFASM(port_j>tr) ; { call state machine } 

1: 316. profile := asmerr; { return driver status } 

1: 317. if asmerr <> then 

1: 318. if asmerr = wait_int 

1: 319. then counter := countlimit { timeout limit } 

1: 320. else IODONE (port_ptr, asmerr); { unexpected error } 

1: 321. end; 

1: 322. end; 

1: 323. end; {hdskio} 

1: 324. 

1: 325. dinterrupt: { Interrupt from device } 

1: 326. begin 

1: 327. with port_ptr A do 

1: 328. begin 

1: 329. p_extdrivecb := pointer (ext_ptr) ; 

1: 330. with p_extdrivecb A do 

1 : 331 . begin 

1: 332. asmerr := GP_STATUS (hwbase , counter); { get profile status } 

1: 333. profile := asmerr; { return status } 

1: 334. if (cur_num_requests <> 0) then 

1 : 335 . begin 

1: 336. if asmerr > then goto 20; { handle error } 

1 : 337 . PROFASM (port_ptr) ; 

1: 338. profile := asmerr; { return status } 

1: 339. if asmerr = wait_int 

1: 340. then counter := countlimit { timeout limit } 

1: 341. else 

1: 342. begin { unexpected error } 

1: 343. 20: if asmerr <> ignorerr then 

1 : 344 . begin 

1: 345. if errstat <> then 

1: 346. if (asmerr = hd_err) or (asmerr = cserr) 

1: 347. then last_hard_error := errstat; 

1: 348. IODONE (port_ptr, asmerr); 

1: 349. end; 

1: 350. end; 

1: 351. end; 

1: 352. end; { with p_extdrivecb } 

1: 353. end; { with port_ptr } 

1 : 354 . end; {dinterrupt} 

1: 355. 

1: 356. dskunclamp: { Unclamp request } 

1 : 357 . begin 

1: 358. profile := 685; { not an ejectable media } 

1 : 359 . end; {dskunclamp} 

1: 360. 

1: 361. dcontrol : { Device control } 

1: 362. begin 

1 : 363 . begin 

1: 364. p_dc_rec := pointer (parptr) ; 

1: 365. p_extdrivecb := pointer (port_ptr A , ext_ptr) ; 

1: 366. with port_ptr A , p_dc_rec A , p_extdrivecb A do 

1: 367. begin 

1: 368. if dversion <> 2 
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369. 


370. 


371. 


372. 


373. 


374. 


375. 


376. 


377. 


378. 


379. 


380. 


381. 


382. 


383. 


384. 


385. 


386. 


387. 


388. 


389. 


390. 


391. 


392. 


393. 


394. 


395. 


396. 


397. 


398. 


399. 


400. 


401. 


402. 


403. 


404. 


405. 


406. 


407. 


408. 


409. 


410. 


411. 


412. 


413. 


414. 


415. 


416. 


417. 


418. 


419. 


420. 


421. 


422. 


423. 


424. 


425. 


426. 


427. 



then profile 

else 

begin 

profile := 0; 

INTSOFF(int_j)rio, ints) 

case dcode of 

15 : begin { return } 



errbase +7 { wrong application version } 



arl0[0] 
arl0[l] 



{ o last error from profile controller } 
{ o state-machine restart count 

last_hard_error ; 

total restarts; 



end; 



20: begin { get disk status } 



arl0[0] 
arl0[l] 
arl0[2] 



= 4; 
= 0; 
= 999; 



{ good disk } 

{ don ' t know how many blocks } 

{ are available 



arl0[3] := 0; 

arl0[4] := 1; { sparing always enabled } 

arlO [5] := ord(command_buffer.sparing_thresh 

<= 10) ; 
arl0[6] := ord(v_flag) ; 



end; 



21: begin { enable /disable sparing } 

if arl0[l] = then { don't rewrite sort errs } 

command_buf f er . sparing_thresh := 11 
else { rewrite if > 30% err rate } 

command_buf f er . sparing_thresh := 3; 
v_flag := (arl0[2] <> 0); { verify all writes } 

end; 
otherwise profile := errbase + 7; 
end; { case } 
INTSON(ints) ; 
end; 
end; { with port_ptr , p_dc_rec , p_extdrivecb } 
end; 
end; {dcontrol} 

dskformat: { format disk } 
begin 

p_extdrivecb : = pointer (port_ptr A , ext_ptr) ; 
if p_extdrivecb A . drivetype < T_Widget 

then error := { disk already formatted } 
else N0NI0_REQ (error, Formatcmd, configptr) , 
profile := error 
end; {dskformat} 

otherwise { pass the function on to HDISK } 
begin 

CALL_HDISK (error , configptr , parameters ) ; 
profile := error; 
end; 

end; { case } 
end; { with } 
end; { PROFILE DRIVER } 
end. 



{ Widget can be formatted } 



End of File: PROFILE. TEXT 



Directory of files in Cross Reference: 
1: PROFILE. TEXT 



level 



absptr 1: 129, 


1: 214. 












arlO 1: 378=, 


1: 379=, 


1: 382=, 


1: 383=, 






1: 390= 


1: 393, 




1 


397. 






asm stat 1 : 


73*, 1: 


113=, 


1 


314=. 






asmerr 1 : 


75*, 1: 


115, 


1 


316, 


1: 


317, 


1: 336, 


1: 338, 




1 


339, 


1: 


343, 



asynctr 1: 26. 
b_sysglo 1: 141, 1: 152, 



1: 318, 
1: 346, 



1: 320, 
1: 346, 



1: 332= 
1: 348. 



161, 



165, 



243. 
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bkwd lin 1 


153=, 


1: 160. 












blk req 1: 172. 
bufaddr 1: 102*. 














c cmd 1: 313. 














c sector 1 


312. 














call_hdi 1 


236, 


1: 418. 












cancel r 1 


179. 














cb_addr 1: 136, 


1: 228. 












cfigptr 1: 147=. 
checksum 1 : 


70*. 












cmd 1 : 


67*, 1: 


112=, 


1: 


123*, 


1: 


139, 


cmd buf 1 : 


83*. 












command 1 : 


65* , 1 : 


111, 


1: 


112, 


1: 


269, 


1: 394, 


1: 396. 












configpt 1: 228, 
control 1 : 


1: 235, 
90*. 


1: 236, 


1 


: 246, 






counter 1 : 


77*, 1: 


88*, 


1: 


118=, 


1: 


319= 


countlim 1 : 


39*, 1: 


118, 


1: 


319, 


1: 


340. 


cserr 1 : 


44*, 1: 


346. 










csum val 1 




80*. 












cur info 1 


109=. 














cur num 1 


164=, 


1: 164, 


1: 166, 


1 


: 334. 






cxfercnt 1 




79*. 












d801 1: 259. 














dc rec 1: 216. 














dcode 1 : 374 . 














dcontrol 1 


361. 














dev chai 1 


160, 


1: 165, 


1: 165. 










devconfi 1 


123*, 


1: 136, 


1: 147. 










dinit 1: 233. 














dinterru 1 


325. 














discsize 1 




78*, 1: 


265=, 


1: 


276, 


1: 


276, 


disksync 1 
drivecb 1 


272, 


1: 274. 

95* , 1 : 


105, 


1: 


106, 


1: 


114, 


driverde 1 




16. 












drive typ 1 
dskforma 1 


407. 


72*, 1: 


277=, 


1: 


281, 


1: 


284= 


dskuncla 1 


356. 














dummy re 1 
dversion 1 


162. 
368. 














enqueue 1 : 165 . 
errbase 1 : 


38*, 1: 


137, 


1: 


242, 


1: 


369, 


errnum 1 : 


95* , 1 : 


115=, 


1: 


116, 


1: 


117, 


1: 170, 


1: 176= 


, 


1: 


177=. 






error 1: 218*, 


1: 236, 


1: 237, 


1 


: 304, 






1: 418, 


1: 419. 












errstat 1 : 


74*, 1: 


345, 


1: 


347. 






expect h 1 : 

ext addr 1: 249. 


71*. 












ext cb 1 : 


92*. 












ext disk 1: 212. 














ext driv 1 : 


61*, 1: 


86, 


1: 


243. 






ext_ptr 1: 105, 
extdrive 1 : 100* , 


1: 248=, 
1: 105=, 


1: 309, 


1 
1: 


: 329, 
106. 






external 1 : 


88, 1: 


90, 


1: 




93. 




extstat 1 : 


82*, 1: 


264. 










fnctn co 1 


231. 














f ormatcm 1 




54*, 1: 


139, 


1: 


302, 


1: 


412. 


fwd_link 1 


152=, 


1: 152, 


1: 153. 










genio 1 : 
getspace 1: 141, 
globalda 1 : 
hd err 1 : 


28. 

1: 243. 

20. 
43*, 1: 


177, 


1: 


346. 






hdinit 1: 240. 














hdisk 1 : 


30. 












hdiskcb 1 : 


90, 1: 


95, 


1: 


128, 


1: 


213. 


hdskio 1: 299. 














hwbase 1 : 


62*, 1: 


252=, 


1: 


254, 


1: 


259= 


hwddrb 1: 211*, 


1: 255=, 


1: 261= 


1 


: 273. 






hwint 1 : 


18. 












hwst ddr 1 




93*. 












hwst irb 1 




93*. 












hwstatus 1 




63*, 1: 


254=, 


1: 


255, 


1: 


260= 


i 1: 221* 


1: 264= 


, 


1: 


264=. 






ignorerr 1 
implemen 1 




42*, 1: 
35. 


343. 











1: 412, 



1: 305, 



365, 



: 148, 


1: 


313 


: 270, 


1: 


312 


1: 418. 






: 332, 


1: 


340 



399. 
123*, 



260, 



261, 



313, 



388, 



: 280, 


1: 


292. 


: 128*, 


1: 


136= 


: 292=, 


1: 


410. 



145, 



1: 412, 



1: 143=, 
1: 413, 



167, 



273, 
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in servi 1 : 108 . 




















intl 1 


1: 


68, 1: 
83. 


68, 


1 




71 


1: 


72, 


1: 


79, 1 


int2 1 


218. 




















int_prio 1: 158, 
interf ac 1 : 


1: 373. 
12. 


















ints 1 


131*, 


1: 158, 


1: 168, 


1: 217* 






1: 373, 


1 


401. 


intsoff 1 


158, 


1: 373. 


















intson 1 


168, 


1: 401. 


















intson t '. 


L: 131, 


1: 217. 


















iochanne '. 


I: 250, 


1: 253, 


1: 272, 


1: 274. 












iodone 1 


320, 


1: 348. 


















iospacem I 
label 1 


I: 252, 
208. 


1: 259. 


















last har '. 


L: 


76*, 1: 


268=, 


1 


347=, 


1 


378. 








leftlink ] 


L: 132*, 


1: 160=, 




1 


165. 












link to : 


L: 155. 




















list cha '. 


L: 150. 




















mmprimit ] 
nested b '. 


L: 
L: 


24. 
81*, 1: 


263=. 
















newextdr \ 


L: 214*, 


1: 243, 


1: 245, 


1: 248. 












num blok '. 


L: 267=, 


1: 280=. 


















operatio ] 
operatn 1 
ord4 1 


I: 222*, 
112, 
252. 


1: 301=, 
1: 148=, 


1: 301. 


1 


302. 












p dc rec '. 


L: 216*, 


1: 364=, 




1 


366. 












p extdev 


L: 212*, 


1: 249=, 




1 


267, 


1 


280. 








p extdri '. 


L: 215*, 


1: 245=, 




1 


246, 


1 


273, 




1: 


309=, 1: 310 




1: 365= 


, 1: 366, 




1 


409=, 


1 


410. 








param_pt j 
paramete I 
params 1 
parm 1 


L: 
L: 

219. 

219*. 


33. 
33*, 1: 


225, 


1 


236, 


1 


418. 








parptr 1 
pointer 1 


364. 
105, 


1: 109, 


1: 136, 


j 


L: 144, 






1: 160, 


1 


228, 




1: 309, 


1: 329, 




1 


364, 


1 


365, 




1: 


409. 


port_ptr '. 


L: 213*, 


1: 228=, 




1 


248, 


1 


301, 




1: 


304, 1: 309 




1: 327, 


1: 337, 




1 


348, 


1 


365, 




1: 


366, 1: 409 


proc_pri 
profdrvr '. 

ptr ext '. 


L: 
L: 
I: 


22. 

1. 
86*, 1: 


92, 


1 


100, 


1 


215. 








ptrdevre 
rb headt '. 


L: 123. 
L: 161. 




















readcmd 1 




52*. 


















remap in '. 
req_exte '. 
req_hd_p 
reqaddr 1 
reqblk 1 
reqptr 1 


L: 

L: 109, 

I: 106, 
129*, 
111, 
101*, 

1: 175, 


64*, 1: 
1: 149=. 
1: 111, 
1: 141, 
1: 138. 
1: 130*, 
1: 179. 


271=, 

1: 159, 
1: 144. 

1: 144=, 


1 

] 

] 


283=. 
L: 160, 

L: 145, 






1: 162, 

1: 155, 


1 
1 


163=, 
163, 


reqptr t '. 
reqspec '. 
reqsrv f I 
reqstatu I 
reqsucce '. 
response ] 
retry en '. 
sector 1 


L: 101, 
I: 159=, 
L: 108=. 
L: 108, 
l: 175. 
L: 220*, 
L: 


1: 130, 
1: 159. 

1: 175. 

1: 273=, 

68*, 1: 
68*, 1: 


1: 132. 

269=. 
111=, 


1 
1 


275, 
312=. 


1 


276. 








sizeof 1 


111, 


1: 138, 


1: 161, 


] 


1: 243. 












slot no 1 


252. 




















space 1 


133*, 


1: 138=, 


1: 140=, 


] 


L: 140, 






1: 141. 






sparing '. 
strt bio : 


L: 

L: 280. 


68*, 1: 


270=, 


1 


388, 


1 


394= 


' 


1: 


396=. 


t_profil : 
t seagat '. 
t widget I 
total re '. 


1: 
L: 
L: 
L: 379. 


47*, 1: 
48*, 1: 
49*, 1: 


277. 
292. 
284, 


1 


410. 












unit 1 




1. 


















use hdis '. 


L: 235. 




















v_flag 1 
via addr I 


390, 

L: 


1: 397=. 
88*, 1: 


92*. 
















wait int I 


L: 


41*, 1: 


117, 


1 


170, 


1 


318, 




1: 


339. 


writecmd '. 


L: 


53*. 



















81, 



82, 



1: 329=, 1: 330, 



245, 



: 249, 

315, 



1: 301. 



1: 172, 1: 172, 



Procedures 
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prof asm 1 : 
start no 1 : 




90*, 
95*, 


1: 
1: 


114, 
167, 


1: 
1: 


315, 
304. 


1: 


337. 














Functions 






























gp statu 1 : 
prof ini 1 : 
profile 1 : 

1: 


: 338=, 


88*, 

92*, 

33*, 

1: 


1: 

1: 

1: 

358= 


332. 
273. 
185*, 


1: 
1: 


237=, 
369=, 


1: 
1: 


242=, 
372=, 


1: 
1: 


275=, 
399=, 


1: 
1: 


305=, 
413=, 


1: 
1: 


316= 

419: 


Declaration 
Assignment i 


Character 
character : 


: ' * ' 
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Cross Reference Listing: 



Beginning of file: RS232.TEXT 



1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 



UNIT RS232; 



{ built-in RS232 driver } 



{ By Dave Offen } 

{ Copyright 1983, Apple Computer Inc. } 

INTERFACE 

USES 

{$U object/driverdefs .obj } 

driverdef s , 
{$U object/driversubs .obj } 

driversubs ; 

function DRIVER ( parameters : param_ptr ) : integer ; 
IMPLEMENTATION 



{$IFC not debug2} 

{$R-} { rangecheck off unless debug mode } 

{$ENDC} 



CONST 



errbase = 640; 
axmit = ; 
amodem = 1 ; 
arecv = 2 ; 
aerr = 3 ; 



send_hs = (hw_hs , xmit_xon , xmit_delay ) ; { transmit handshake type } 
recv_hs = (hwhs, rec_xon) ; { receive handshake type } 

intlptr = A intl; 



intlrecptr = "intlrec; 
intlrec = record 

end; 

portrec_ptr = A portrec; 
portrec = record 



controlreg : intl ; 



cur_req_ptr : reqptr_type ; 

cur_inf o_j?tr : seqextptr_type ; 

cur_read_f lag : boolean ; 

hwdata : intlptr; { actual I/O address } 

hwcontrol : intlrecptr; { actual I/O address } 

nulllink : linkage ; { points to head of queue } 

openwr5 : intl ; 

openwrl4 : intl ; 

discon_detect : boolean; { detect disconnect on framing error } 

restrt_out, restrt_in: boolean; 

prev_char : intl ; 

autolf : boolean ; 

{ RS232 output variables } 

xmt_hs : send_hs ; { handshake for transmitting } 

in_break: boolean; { when T, openwr5 has bit#4 set & alarm pending } 

xmit_wait: boolean; { waiting for XON, modem signal or timeout } 

xmit_ref: integer; { timer refnum } 

{xmt_hs = hw_hs or xmt_xon; (modem or xoff/xon handshake) } 
xmit_timeout: longint; { hardware handshake timeout } 

{xmt_hs = hw_hs; (no handshake, or modem handshake) } 
xmtrrO : intl ; { modem controls required } 
xmtzrrO : intl ; { modem required to = } 

{xmt_hs = xmit_delay. ( delay after CR, LF) } 
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1: 72. waitb4next: boolean; { cr or If was xmitted } 

1: 73. crlfdelay: longint; { timer count } 

1: 74. 

1:75. { RS232 input variables } 

1: 76. 

1: 77. rec_hs : recv_hs; { handshake for receiving } 

1: 78. no_block: boolean; { blocking/non-blocking read mode } 

1: 79. last_stopped: boolean; { DTR off or XOFF last sent } 

1: 80. size_typeah: 0..1024; { size of type-ahead input buffer } 

1: 81. prity_char: intl; { char to replace parity errs, or 01 if disabled } 

1: 82. num_typeah: integer; { number of chars currently in buffer } 

1: 83. full_thresh: integer; { threshold for sending "buffer-full" } 

1: 84. empty_thresh : integer; { threshold for sending "buffer-empty" } 

1: 85. start_typeah, get_typeah, put_typeah: intlptr; { type-ahead ptrs } 

1: 86. end_typeah: intlptr; { equals start_typeah+size_typeah } 

1 : 87 . 

1: 88. {rec_hs = rec_xon. (send xoff/xon when threshold reached) } 

1: 89. hschar_pending : (no_char, xoff_char, xon_char) ; 

1: 90. 

1: 91. end; 

1: 92. 

1: 93. 

1: 94. procedure FINISH_REQ(port : portrec_ptr; ok_flag: boolean); forward; 

1: 95. 

1: 96. 

1: 97. procedure BYTEO(port: portrec_ptr) ; 

1 ; 98 . /*************************************************************} 

1: 99. {* 

*> 
1: 100. {* Description: Write one byte on RS232 *) 

1: 101. {* 

*> 
1: 102. {* Input Parameters: Port points to the current port in the *} 

1: 103. {* RS232 device control block. *} 

1: 104. {* 

*} 
1: 105. {* Output Parameters: none *} 

1: 106. {* 

*} 
1: 107. {* Side Effects: Starts timer if hardware handshake requires *} 
1: 108. {* 

*} 
1: 109. {* Special Conditions of Use: RS232 interrupts must be off *} 
1: 110. {* 

*} 
1: 111. {* Error Conditions: *} 

1: 112. {* 

*} 

1: 114. 

1: 115. VAR 

1: 116. data_ptr: intlptr; 

1: 117. status, err: integer; 

1: 118. real_addr: longint; 

1: 119. 

1: 120. begin 

1: 121. with port A .hwcontrol" do 

1 : 122 . begin 

1: 123. status := controlreg; { read hardware control reg } 

1: 124. 

1 : 125 . if (hschar_pending <> no_char) then 

1: 126. begin { need to send xoff or xon } 

1: 127. if ALLSET($04, status) then { output buffer is empty } 

1: 128. begin { send xoff or xon now } 

1: 129. if hschar_pending = xoff_char then 

1 : 130 . begin 

1: 131. 

1: 132. {$IFC debug2) 

1: 133. if TRACE (DD, 1) then 

1: 134. write ('<xof>') ; 

1: 135. ($ENDC) 

1: 136. 

1: 137. hwdata A := $13; { xoff char } 

1: 138. end 

1: 139. else 

1: 140. begin { send xon } 
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1: 141. 

1: 142. {$IFC debug2} 

1: 143. if TRACE (DD, 1) then 

1: 144. write ( '<xon>' ) ; 

1: 145. {#ENDC} 

1: 146. 

1: 147. hwdata A := $11; { xon char } 

1: 148. end; 

1: 149. hschar_pending := no_char 

1: 150. end 

1: 151. end 

1: 152. else 

1: 153. if (xmt_hs <> hw_hs) or 

1: 154. (ALLSET (xmtrrO , status) and ALLSET (xmtzrrO , -1-status) ) then 

1 : 155 . begin { ready for xmit } 

1: 156. if ALLSET ($04, status) then { xmit buffer is empty ) 

1 : 157 . with cur_inf o_ptr A do 

1 : 158 . begin 

1: 159. FREEZE_SEG(err, buf f_rdb_ptr , buff_offset, ord(cur_req_ptr) , 

1: 160. " real_addr) ; 

1: 161. if err <> then 

1: 162. begin 

1: 163. controlreg := $28; { clear output interrupts with $28 } 

1: 164. restrt_out := true { reqrestart will be called to continue } 

1: 165. end 

1: 166. else 

1: 167. begin { freeze seg succeeded } 

1: 168. if autolf and 

1: 169. ((prev_char = $0d) or (prev_char = -115{=$8D))) { bug 161 } 

1: 170. then 

1: 171. prev_char := $0A { insert auto LF } 

1 : 172 . else { no automatic line feed } 

1 : 173 . begin 

1: 174. data_ptr := pointer (real_addr + xfer_count) ; 

1: 175. xfer_count := xfer_count + 1; 

1: 176. prev_char := data_j?tr A ; 

1: 177. end; 

1: 178. 

1: 179. {$IFC debug2) 

1: 180. if TRACE (DD, 1) then 

1 : 181 . write (CHR (prev_char) ) ; 

1: 182. ($ENDC) 

1: 183. 

1: 184. hwdata A := prev_char; { do the write } 

1: 185. 

1 : 186 . if xmt_hs = xmit_delay then 

1 : 187 . if (prev_char = $0d) or (prev_char = $0a) then 

1: 188. waitb4next := true; { start delay after CR or LF interrupts } 

1: 189. 

1: 190. UNFREEZE_SEG (buf f_rdb_ptr) { allow buffer to move again } 

1: 191. end 

1: 192. end 

1: 193. end 

1: 194. else { not ready for xmit } 

1: 195. begin { allow delay for hardware handshake } 

1: 196. 

1: 197. {$IFC debug2) 

1: 198. if TRACE (DD, 5) then 

1: 199. writeln(' RS-232 stop xmit for hw handshake. '); 

1: 200. ($ENDC) 

1: 201. 

1 : 202 . if xmit_timeout > then 

1: 203. ALARMRELATIVE (xmitjref , xmit_timeout) ; 

1: 204. xmit_wait := true; 

1: 205. controlreg := $28 { clear output interrupts with $28 } 

1: 206. end 

1: 207. end 

1: 208. end; (BYTEO) 

1: 209. 

1: 210. procedureCOPYBYTES (port : portrec_ptr) ; 

1; 211. /**************************************************************** 1 

1: 212. {* 

*> 

1: 213. {* Description: Copy bytes from typeahead buffer to user buffer *} 

1: 214. {* 

*> 
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{ * Input Parameters : Port points to the current port in the * } 

{* RS232 device control block. *} 

{* 
*> 

{ * Output Parameters : none * } 

{* 
*> 

{* Side Effects: 

{* 
*> 

{* Special Conditions of Use: RS232 interrupts must be off *} 

{* 
*> 

{ * Error Conditions : * } 

{* 
*> 

J*********************************^ 

VAR 

i , errnum , cnt : integer ; 
data_ptr : intlptr ; 
real_addr : longint ; 

begin 

with port A , cur_inf o_jptr A do 
if num_typeah > then 
begin 

FREEZE_SEG (errnum, buf f _rdb_ptr , buff_offset, ord(cur_req_ptr) , 

real_addr) ; 
if errnum > then 

restrt_in := true 
else 
begin 

data_jptr := pointer (real_addr + xfer_count) ; 
cnt := num_bytes - xfer_count; 
if cnt > num_typeah then 
cnt : = num_typeah ; 

{ transfer typed-ahead characters to user buffer } 

i := ord(get_typeah) + cnt - ord(end_typeah) ; { wraparound chars } 
if i < then { transfer all chars in single move of length "cnt" } 

i := cnt 
else 
begin { transfer requires two moves } 

movelef t (get_typeah A , data_jptr A , cnt - i) ; 

data_ptr := pointer (ord(data_ptr) + cnt - i) ; 

get_typeah := start_typeah 
end 

movelef t (get_typeah A , data_ptr A , i) ; 
get_typeah := pointer (ord(get_typeah) + i) ; 

UNFREEZE_SEG (buf f_rdb_ptr) ; { allow buffer to move } 
num_typeah := num_typeah - cnt; 
if last_stopped then 

if num_typeah <= empty_thresh then { allow input } 
begin 

last_stopped := false; 
if rec_hs = hwhs then 
begin { toggle modem signals } 

{$IFC debug2} 

if TRACE (DD, 5) then 

writelnf RS-232 DTR turned on.'); 
{ $ENDC } 

with hwcontrol A do 
begin 

controlreg := 5; 

i := 128; { NOP to assure delay between accesses } 
controlreg := openwr5 
end 
end 
else 
begin { send xon } 
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1: 285. hschar_j?ending := xon_char; 

1 : 286 . BYTEO (port) ; 

1: 287. end 

1: 288. end; 

1: 289. xfer_count := xfer_count + cnt 

1: 290. end; 

1: 291. if (xfer_count = num_bytes) or no_block then { read complete } 

1: 292. FINISH_KEQ(port, true) 

1 : 293 . end 

1: 294. end; { copybytes } 

1: 295. 

1: 296. 

1: 297. procedure START_NEW_REQUEST (port : portrec_ptr) ; 

1; 298. /**************************************************************** 1 

1: 299. {* 

*> 

1: 300. {* Description: Start a new read or write from the queue. *} 

1: 301. {* 

*> 

1: 302. {* Input Parameters: Port points to the current port in the *} 

1: 303. {* RS232 device control block. 

1: 304. {* 

*> 

1: 305. {* Output Parameters: none 

1: 306. {* 

*> 

1: 307. {* Side Effects: Modem control signals are affected. *} 

1: 308. {* 

*> 

1: 309. {* Special Conditions of Use: RS232 interrupts must be off *} 

1: 310. {* 

*> 

1: 311. (* Error Conditions: 

1: 312. {* 

*> 

1; 313. J****************************^ 

1: 314. 

1 : 315 . begin 

1: 316. with port A do 

1 : 317 . begin 

1: 318. cur_req_ptr := CHAIN_FORWARD (nullink) ; 

1 : 319 . cur_req_ptr A . reqstatus . reqsrv_f : = in_service ; 

1: 320. cur_info_ptr := pointer (cur_req_jptr A . req_extent) ; 

1: 321. with cur_info_jptr A do 

1: 322. begin 

1: 323. cur_read_flag := read_flag; 

1: 324. if discon_detect and (hwcontrol A .controlreg < 0) then 

1: 325. begin { assume disconnected cable on input framing error } 

1: 326. xmit_wait := false; { fixes bug } 

1: 327. cur_req_jptr A .hard_error := errbase + 8; 

1: 328. FINISH_REQ(port, false) 

1: 329. end 

1: 330. else { start up i/o for new request } 

1: 331. if cur_read_flag then 

1: 332. COPYBYTES (port) 

1 : 333 . else { write } 

1 : 334 . begin 

1: 335. waitb4next := false; 

1: 336. if (xmt_hs = xmt_xon) and xmit_wait then { last received xoff } 

1 : 337 . begin 

1: 338. if xmit_timeout > then 

1: 339. ALARMRELATIVE (xmit_ref , xmit_timeout) 

1: 340. end 

1: 341. else 

1: 342. BYTEO (port) 

1: 343. end 

1: 344. end 

1: 345. end 

1 : 346. end ; { START_NEW_KEQUEST } 

1: 347. 

1: 348. procedure FINISH_REQ(*port: portrec_ptr; ok_flag: boolean*); 

1; 349. j****************************^ 

1: 350. {* 

*} 

1: 351. {* Description: Complete the current request. * 

1: 352. {* 
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*> 

1 : 353 . { * Input Parameters : Port points to the current port in the * } 

1: 354. {* RS232 device control block. Okjflag is param to *} 

1: 355. {* unlock request. *} 

1: 356. {* Output Parameters: none *} 

1: 357. {* 

*> 
1: 358. {* Side Effects: Modem control signals are affected. *} 

1: 359. {* 

*> 
1: 360. {* Special Conditions of Use: Cur_req_ptr must be valid *} 

1: 361. {* 

*> 
1: 362. {* Error Conditions: *} 

1: 363. {* 

*> 
1; 364 _ /**************************************************************** 1 

1: 365. 

1: 366. VAR 

1: 367. err: integer; 

1: 368. ptrsysg: A longint; 

1: 369. 

1: 370. begin 

1: 371. ptrsysg := pointer (bsysglob) ; { set up pointer to b_sysglobal_ptr } 

1: 372. with port A , cur_info_ptr A do 

1 : 373 . begin 

1: 374. ADJ_IO_CNT( false, buff_rdb_ptr) ; { allow swapout } 

1: 375. UNBLK_REQ(cur_req_j)tr, ok_flag) ; 

1: 376. DEQUEUE (cur_req_ptr A .dev_chain, ptrsysg A ) ; 

1 : 377 . if xmit_wait then 

1: 378. ALARMOFF(xmit_ref) ; 

1: 379. if cur_read_flag then 

1: 380. restrt_in := false { prevent reqrestart after completion, fixes bug } 

1 : 381 . else { write } 

1 : 382 . if hschar_j?ending = no_char then 

1: 383. restrt_out := false; { fixes bug } 

1: 384. 

1: 385. {$IFC debug2} 

1: 386. if TRACE (DD, 10) then 

1: 387. writeln('RS-232 Completed. Success = ', ok_f lag) ; 

1: 388. {$ENDC) 

1: 389. 

1: 390. if (nullink.fwd_link + ptrsysg A ) <> ord(@nullink) then 

1: 391. START_NEW_REQUEST (port) 

1: 392. else 

1: 393. cur_req_ptr := nil 

1: 394. end { with } 

1: 395. end; { finish_req } 

1: 396. 

1: 397. 

1: 398. procedure XMIT_TO_HNDL (port : portrec_ptr) ; 

1: 400. {* 

*} 
1: 401. {* Description: Timeout handler when waited too long for *} 
1: 402. {* resuming output to RS-232 channel A or B, or delaying *} 

1: 403. {* after transmitting CR or LF. *} 

1: 404. {* 

*> 
1: 405. {* Input Parameters: pointer to data for Port A or B *} 

1: 406. {* 

*> 
1: 407. {* Output Parameters: none *} 

1: 408. {* 

*} 
1: 409. {* Side Effects: Completes the request with an error *} 

1: 410. {* 

*> 
1: 411. {* Special Conditions of Use: Called with all ints off *} 

1: 412. {* 

*> 
1: 413. {* 

*> 
1: 414. {* Error Conditions: *} 

1: 415. {* 

*> 
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1: 417. 

1 : 418 . VAR 

1: 419. ptrsysg: A longint; 

1: 420. 

1: 421. begin 

1: 422. with port A , cur_info_ptr A do 

1 : 423 . if in_break then 

1 : 424 . begin { remove from break_state } 

1: 425. in_break := false; 

1: 426. openwr5 := openwr5 - $10; { disable break } 

1 : 427 . with hwcontrol" do 

1: 428. begin 

1: 429. controlreg := 5; 

1: 430. if (rec_hs = hwhs) and last_stopped then 

1: 431. controlreg := openwr5 - (-128) { no DTR } 

1: 432. else 

1 : 433 . controlreg : = openwr5 

1: 434. end { with } 

1: 435. ptrsysg := pointer (bsysglob) ; 

1: 436. if (nullink . fwd_link + ptrsysg A ) <> ord(@nullink) then 

1: 437. START_NEW_REQUEST (port) { start next pending request } 

1 : 438 . end 

1: 439. else 

1: 440. if xmit_wait then 

1: 441. if cur_req_ptr <> nil then 

1 : 442 . begin 

1 : 443 . if xmit_hs <> xmt_xon then 

1: 444. xmit_wait := false; 

1 : 445 . if xmt_hs = xmit_delay then { time up after CR or LF } 

1: 446. if xfer_count < num_bytes then 

1: 447. BYTEO(port) { send next byte out ) 

1: 448. else {complete previous request } 

1: 449. FINISH_REQ(port, true) 

1: 450. else 

1 : 451 . begin { handshake has been delayed too long } 

1 : 452 . cur_req_ptr A . hard_error : = errbase + 7 ; 

1: 453. FINISH_REQ(port, false) 

1 : 454 . end 

1 : 455 . end 

1 : 456 . end; { xmit_to_hndl } 

1: 457. 

1: 458. 

1: 459. function DRIVER(* parameters: param_ptr) : integer *) ; 

1; 460. J****************************************************************} 

1: 461. {* 

*> 

1: 462. {* Description: RS-232 external interface via DRIVERCALL *) 

1: 463. {* 

*> 

1: 464. {* Input Parameters: Parameters depend on function code *} 

1: 465. {* 

*> 

1: 466. {* Output Parameters: none *} 

1: 467. {* 

*> 

1: 468. {* Side Effects: none *} 

1: 469. {* 

*> 

1: 470. {* Special Conditions of Use: none *} 

1: 471. {* 

*> 

1: 472. {* Error Conditions: *} 

1: 473. {* 

*} 

1; 474 _ J****************************************************************} 

1: 475. 

1: 476. VAR 

1: 477. prevints : intson_type; 

1: 478. port_ptr: portrec_ptr; 

1: 479. i: integer; 

1: 480. char_in: intl; 

1: 481. ptrsysg: A longint; 

1: 482. 

1: 483. 

1: 484. procedure WR_SCC (regno: intl; cal: intl); 
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VAR 



begin 



{* Internal procedure to write to the SCC control registers *} 
{* Assures necessary delay between accesses. 

i : integer ; 



{$R-} { rangecheck off } 

with port_ptr A .hwcontrol do 
begin 

controlreg := regno; 

i := 128; { NOP to assure delay between accesses } 

controlreg := val 
end 



{$IFC debug2} 

{$R+} { rangecheck back on if debug } 

{$ENDC} 



end; {WR SCC} 



procedure INITIT; 

I******************************************** 

{* Internal procedure to handle initialize "case" and reduce 
{* code size of main DRIVER procedure 



VAR 



begin 



ptrsysg : A longint ; 

err , i , chan : integer ; 

temp : longint ; 

portacontrol , portbcontrol : intlrecptr ; 

p : params ; 

dcrec: dc rec; 



INTSOFF(rsints, prevints) ; 



err := 0; 

portacontrol := pointer (iospacemmu*$20000 + $00203) ; 

portbcontrol := pointer (ord (portacontrol) - 2) ; 

ptrsysg := pointer (bsysglob) ; { set up pointer to b_sysglobal_ptr } 

chan : = parameters"" . conf igptr"" . iochannel ; 

if not GETSPACE(sizeof (portrec) , ptrsysg", temp) then 

err : = errbase + 6 
else 
begin 

parameters"" .conf igptr"" . cb_addr := temp; 

port_ptr := pointer (temp) 
end; 

{ initialize either port A or B } 

if err = then 
with port"" do 
begin 

cu^req^jptr := nil; 

if chan = then 

begin { chan A initializations } 

xmtrrO := $10; { bit position for DSR signal } 

xmtzrrO := 0; 

openwrl4:= 3; { port A uses baud rate generator } 

openwr5 := -22; 

hwcontrol := portacontrol; 

i := hwcontrol" 1 . controlreg; { make sure initially writes to reg } 

WR_SCC(9, -118) { = $8a, reset chan A } 
end 
else 
begin { chan B initializations } 

xmtrrO := 0; 

xmtzrrO := $20; { bit position for DSR signal } 
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openwrl4:= 1; 

openwr5 := -24; 

hwcontrol := portbcontrol ; 

i := hwcontrol A . controlreg; { make sure initially writes to reg } 

WR_SCC(9, $4a) { reset chan B } 



end; 

WR_SCC(4, $44) ; 



{ set operating mode } 



if chan = then 

WR_SCC(11, $50) { Port A uses baud rate generator } 

else 

begin 

WR_SCC(11, -48); { = $D0 for oscillator source on Port B } 
for i := 1 to 1000 do ; { kill time while oscillator starts } 

end; 

{ set baud rate } 

p.configptr := parameters* .configptr ; 

p_f nctn_code : = dcontrol ; 

dcrec . dversion := 2; 

dcrec . dcode : = 5 ; 

dcrec. arl0[0] := 1200; { set to 1200 baud } 

p.parptr := ord(@dcrec) ; 

i := DRIVER (@p) ; { call internal device control routine } 



WR_SCC(10, 0) ; 
WR_SCC(3, -63) ; 
WR_SCC(5, openwr5) ; 



{ set receiver state to $41 or $C1 } 
{ set to standard modem signals } 



if chan = then 

WR_SCC(15, $10) { enable ints in SYNC A modem change } 
else 

WR_SCC(15, $20); { or enable ints on CTS B modem change } 

WR_SCC($11, $13); { enable desired interrupts: $13 or $17 } 

hwdata := pointer (ord(hwcontrol) + 4) ; 

in_break := false; 

res tr t_in : = f al se ; 

restrt_out := false; 

prev_char : = ; 

autolf := false; 

nullink . f wd_link := ord(@nullink) - ptrsysg A ; 

nullink . bkwd_link : = nullink . f wd_link ; 

discon_detect := false; 

xmit_wait := false; 

xmt_hs : = hw_hs ; 

{ receiver initializations } 

no_block := true; 

rec_hs : = hwhs ; 

prity_char := 1; 

last_stopped := false; 

xmit_timeout := 20000; { 20 seconds } 

ALARM_ASSIGN(xmit_ref , parameters A . configptr, rsints) ; 

if xmit_ref = then 

begin 

err := 602; { timer table full } 

RELSPACE{ord(port_ptr) , ptrsysg") 
end 
else 
begin { initialize type-ahead buffer } 

size_typeah := 0; { temporary value } 

p.configptr := parameters" . configptr; 

p . f nctn_code := dcontrol; 

dcrec. dversion := 2; 

dcrec . dcode : = 9 ; 



dcrec. arl0[0] 
dcrec. ar 10 [1] 
dcrec.arl0[2] 



= 64 
= 16 
= 32 



{ size of type-shead buffer } 
{ low threshold } 
{ high threshold } 



p . parptr 



ord(@ dcrec) ; 
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1: 637. 

1: 638. { NOTE: There is code missing in the listing here. } 

1 : 639 . { The missing parts are from here to the VAR } 

1: 640. { of the next procedure. } 

1: 641. 

1: 642. end 

1: 643. end { with ) 

1: 644. end; {INITIT} 

1: 645. 

1: 646. procedure CONTROLIT; 

1 ; 647 _ /****************************************************************} 

1: 648. {* Internal procedure to handle control "case" and reduce *} 

1: 649. {* code size of main DRIVER procedure *} 

1 ; £50 . /****************************************************************} 

1: 651. 

1: 652. VAR 

1: 653. speed, i: integer; 

1: 654. ptrsysg: A longint; 

1: 655. temp: longint; 

1: 656. dc_rec_ptr: A dc_rec; 

1: 657. 

1 : 658 . begin 

1 : 659 . with parameters'* do 

1 : 660 . begin 

1: 661. DRIVER := 0; 

1 : 662 . if conf igptr A . iochannel = then 

1: 663. temp := 125000 { constant for baud rate computation } 

1: 664. else 

1: 665. temp := 115200; { for baud rates } 

1: 666. 

1: 667. dc_rec_j?tr := pointer (parptr) ; 

1: 668. INTSOFF(rsints, prevints) ; 

1: 669. with port_j?tr A , dc_rec_ptr A do 

1: 670. if dversion <> 2 then 

1: 671. DRIVER := errbase + { wrong application version } 

1: 672. else 

1 : 673 . case dcode of 

1 : 674 . 1 : begin { set parity and leave break state } 

1: 675. if conf igptr" . iochannel = then 

1: 676. openwr5 := -86 { = $AA, for port A } 

1: 677. else 

1: 678. openwr5 := -88; { = $A8 , port B always has RTS off } 

1: 679. in_break := false; { removing break state } 

1: 680. 

1: 681. case arl0[0] of 

1: 682. 0: begin { no parity, 8 data, 1 stop } 

1: 683. WR_SCC(4, $44); 

1: 684. WR_SCC(2, -63); { = $C1 } 

1: 685. openwr5 := openwr5 + $40; 

1: 686. prity_char := 1 { disable parity err replacement } 

1: 687. end; 

1: 688. 1, 2: begin { odd parity, 7 data, 1 stop } 

1: 689. WR_SCC(4, $45); 

1: 690. WR_SCC(3, $41); 

1: 691. prity_char := 

1: 692. end; 

1: 693. 3, 4: begin { even parity, 7 data, 1 stop } 

1: 694. WR_SCC(4, $47); 

1: 695. WR_SCC(3, $41); 

1: 696. prity_char := -128 { = $80 } 

1: 697. end; 

1: 698. end; { case arl0[0] } 

1: 699. 

1: 700. if (rec_hs = hwhs) and last_stopped then 

1: 701. WR_SCC(5, openwr5 - (-128)) { no DTR } 

1: 702. else 

1: 703. WR_SCC(5, openwr5) ; 

1: 704. 

1: 705. if odd(arl0[0]) then 

1 : 706 . begin 

1: 707. WR_SCC($11, $13); { ignore parity on input } 

1: 708. prity_char := 1 { disable input parity err replacement } 

1: 709. end 

1: 710. else 

1 : 711 . begin 

1: 712. WR_SCC($11, $17); { enable input parity checking } 
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hwcontrol A . controlreg := $30 { ignore prior parity errors } 



end 
end; 

2 : begin { set up for DSR handshake on output } 
xmit_hs : = hw_hs ; 
if conf igptr A . iochannel = then 

xmtrrO := $10 
else 

xmtzrrO := $20; { port B } 
xmit_wait := false { clear XOFF state, fixes bug } 
end; 

3 : if cur_reo^_jptr <> nil then 

DRIVER := errbase +9 { don't change xmit_hs during I/O } 
else 
begin { set up for xon, xoff handshake on output } 

xmit_hs := xmt_xon; 

xmit_wait := false { put in xon state, fixes bug } 
end; 

4: begin { set up for delay on cr, If } 
xmt_hs := xmit_delay; 
crlfdelay := arl0[0]; 

xmit_wait := false { clear xoff state, fixes bug } 
end; 

5 : begin { set baud rate } 

speed := (temp div arl0[0]) - 2; 

WR_SCC(14, 0) ; { turn off baud rate generator } 

{$R-} {rangecheck off} 

WR_SCC(12, speed); { lsb } 

{$IFC debug2} 

{$R+} { rangecheck back on if debug } 

{$ENDC} 

WR_SCC(13, speed div 256); { msb } 

WR_SCC(14, openwrl4) 
end; 
6: no_block := (arl0[0] <> 0); { set input blocking/not-blocking mode } 

7 : begin { set input mode to hardware handshake } 
if num_typeah >= full_thresh then 
begin 

WR_SCC(5, openwr5 - (-128)); { no DTR } 
last_stopped := true; 

{$IFC debug2} 

if TRACE (DD, 5) then 

writeln( ' RS-232 DTR turned off. ' ) ; 



end 

else 

begin 



{ $ENDC } 



WR_SCC(5, openwr5) ; { enable receive handshake signals } 
last_stopped := false; 

{$IFC debug2} 

if TRACE (DD, 5) then 

writelnf RS-232 DTR turned on. 1 ); 
{ $ENDC } 



end; 

rec_hs : = hwhs ; 
end; 

8 : begin { set input mode to xon/xof f } 
rec_hs := rec_xon; 
if num_typeah >= full_thresh then 
begin 

last_stopped := true; 

hschar_pending := xoff_char; 

BYTEO (port_ptr) 
end 
else 
begin 
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end 
end; 



last_stopped := false; 
hschar_pending := xon_char; 
BYTEO (port_ptr) 



9 : begin { flush and redefine typeahead buffer } 
num_typeah : = ; 
get_typeah := put_typeah; 
hschar_pending := no_char; 
if last_stopped then 
begin 

last_stopped := false; 

if rec_hs = hwhs then 

begin { toggle modem signals } 

{$IFC debug2} 

if TRACE (DD, 5) then 

writelnf RS-232 DTR turned on.'); 
{$ENDC} 

WR_SCC(5, openwr5) { enable receive handshake signals } 
end 
else 
begin { send xon } 

hschar_pending := xon_char; 
BYTEO (port_j>tr) ; 
end; 
end; 

ptrsysg := pointer (bsysglob) ; 
if arl0[0] >= then 
begin { allocate new buffer } 
if size_typeah > then 

RELSPACE(ord(start_typeah) , ptrsysg A ) ; 
size_typeah := arl0[0]; 
if size_typeah > then 

if not GETSPACE(size_typeah, ptrsysg", temp) then 

DRIVER := errbase + 6 
else 
begin 

start_typeah := pointer (temp) ; 



get_typeah 
put_typeah 
end_typeah 



= start_typeah; 

= get_typeah; 

= pointer (temp + size_typeah) 



end 



end; 



if arl0[l] >= -1 then { -2 means don't change, -1 means disable } 

empty_thresh := arl0[l]; 
if arl0[2] >= -1 then { -2 means don't change, too big means disable } 

full_thresh := arl0[2] 
end; 

10: begin { enable framing err as discon } 
with hwcontrol" do 
begin 

controlreg := 15; 

i := 128; { NOP to assure delay between accesses } 

i : = controlreg { get current regl5 value } 
end; { with } 
if arl0[l] <> then 
begin 

discon_detect := true; 

if i >= then 

i := i + (-128) 
end 
else 
begin 

discon_detect := false; 

if i < then 

i := i - (-128) 
end 

WR_SCC(15, i) { set updated regl5 value } 
end; 

11 : begin { set up for no handshake on output } 
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865. xmt_hs := hw_hs ; 

866. xmtrrO := 0; 

867. xmtzrrO := 0; 

868. xmit_wait := false { clear xoff state, fixes bug } 

869. end; 
870. 

871. 12: xmit_timeout := arlO[0] * 1000; 

872 . { set transmit-handshake timeout in seconds . <= is infinite } 
873. 

874. 13: { put into break state for specified period of time } 

875 . if cur_req_pre <> nil then 

876. DRIVER := errbase + 9 { don't start break during I/O } 

877. else 

878. begin 

879. ALARMRELATIVE (xmit_ref , arl0[0]); { remain in break state until 
880. 



881. 

882. if not in_break then 

883. begin 

884. in_break := true; 

885. openwr5 := openwr5 + $10; { enable break } 

886. if ( (rec_hs = hwhs) and last_stopped) or (arl0[l] <> 0) then 

887. WR_SCC(5, openwr5 - (-128)) { no DTR ) 

888. else 

889. WR_SCC(5, openwrb) { enable receive handshake signals } 

890. end; 

891. end; 
892. 

893. 17: autolf := (arl0[0] <> 0); { enable/disable auto LF } 

894. 

895. otherwise 

896. DRIVER := errbase + 9; 

897 . end; { case dcode } 
898. 

899. INTSON (prevints ) 

900. end { with ) 

901. end; { controlit } 
902. 

903. procedure STARTIT; 

904 . J****************************************************} 

905. {* Internal procedure to handle SEQIO "case" *} 

906 . J****************************************************} 

907. 

908 . VAR 

909. ptrsysg: A longint; 

910. leftlink: link_j>tr; 

911 . ext_ptr : seqextptr_type ; 

912 . 

913 . begin 

914 . with parameters^ do 

915 . begin 

916. ext_j?tr := pointer (req A . req_extent) ; 

917. if ext_j?tr A . num_bytes <= then 

918. DRIVER := errbase + 1 { illegal parameters ) 

919. else 

920 . begin 
921. 

922. {$IFC debug2) 

923. if TRACE (DD, 10) then 

924. if ext_j?tr A . read_f lag then 

925 . writeln ( ' Reading RS-232 . ' ) 

926. else 

927 . writeln ( ' Writing RS-232 . ' ) ; 

928. (#ENDC) 
929. 

930 . with port_ptr A do 

931 . begin { add request to the device queue or finish the request now } 

932. DRIVER := 0; {no errors } 

933 . ptrsysg : = pointer (bsysglob) ; {set pointer to b_sysglobal_ptr } 

934. INTSOFF(rsints, prevints); 

935. leftlink := pointer (nullink.bkwd_link + ptrsysg"); 

936. if ext_j?tr A . read_f lag and no_block and 

937. ( (num_typeah = 0) or (leftlink <> Unullink) ) then 

938 . begin { ok to complete request since non-blocking read w/o char } 

939. ADJ_IO_CNT( false, ext_ptr A .buff_rdb_ptr) ; 
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if discon_detect and (hwcontrol A . controlreg < 0) then 
begin { assume disconnected cable on input framing error } 
xmit_wait := false; 
req A . hard_error : = errbase + 8 ; 
UNBLK_REQ(req, false) 
end 
else 

UNBLK_REQ(req, true) 
end 
else 
begin 

ENQUEUE (req A .dev_chain, leftlink A , ptrsysg A ) ; 
if cur_req_ptr = nil then 
if not in_break then 

START_NEW_REQUEST (port_ptr) ; 
end; 

INTSON (prevints) 
end { with port_ptr } 
end; {else} 
end { with parameters } 
end; { startit } 



procedure BYTEIN; 

{* Put received char in input buffer or type-ahead buffer *} 



begin 



integer ; 



with port_ptr A do 
begin 

if char_in < then { set "i" to char_in w/o parity bit set } 

i := char_in + $0080 
else 

i := char_in; 
if (xmit_hs = xmt_xon) and (i = $13) then 
begin { got xoff } 

{$IFC debug2} 

if TRACE (DD, 5) then 

writelnf RS-232 xoff received.'); 
{$ENDC} 

xmit_wait := true; 

if cur_req_ptr <> nil then 

if not cur_read_flag then { fixes bug } 
if xmit_timeout > then 

ALARMRELATIVE (xmit_ref , xmit_timeout) ; 
end 
else 

if (xmit_hs = xmt_xon) and (i = $11) then 
begin 

if xmit_wait then 
begin { got xon } 

{$IFC debug2} 

if TRACE (DD, 5) then 

writeln ( ' RS-232 xon received.'); 
{$ENDC} 

xmit_wait := false; 

if cur_req_ptr <> nil then 

if not cur_read_flag then { fixes bug } 
begin 

ALARMOFF(xmit_ref) ; 
BYTEO (port_ptr) 
end 
end 
end 

else { have real input character, put into typeahead buffer } 
if (num_typeah + 1) <= size_typeah then 
begin {still room in buffer} 
put_typeah A := char_in; 
put_typeah := pointer (ord(put_typeah) + 1); 



Page 126 of 141 



Device Drivers Manual 



Alpha Draft -- 1 1 January 1984 



1:1016. 
1:1017. 
1:1018. 
1:1019. 
1:1020. 
1:1021. 
1:1022. 
1:1023. 
1:1024. 
1:1025. 
1:1026. 
1:1027. 
1:1028. 
1:1029. 
1:1030. 
1:1031. 
1:1032. 
1:1033. 
1:1034. 
1:1035. 
1:1036. 
1:1037. 
1:1038. 
1:1039. 
1:1040. 
1:1041. 
1:1042. 
1:1043. 
1:1044. 
1:1045. 
1:1046. 
1:1047. 
1:1048. 
1:1049. 
1:1050. 
1:1051. 
1:1052. 
1:1053. 
1:1054. 
1:1055. 
1:1056. 
1:1057. 
1:1058. 
1:1059. 
1:1060. 
1:1061. 
1:1062. 
1:1063. 
1:1064. 
1:1065. 
1:1066. 
1:1067. 
1:1068. 
1:1069. 
1:1070. 
1:1071. 
1:1072. 
1:1073. 
1:1074. 
1:1075. 
1:1076. 
1:1077. 
1:1078. 
1:1079. 
1:1080. 
1:1081. 
1:1082. 
1:1083. 
1:1084. 
1:1085. 
1:1086. 
1:1087. 
1:1088. 
1:1089. 
1:1090. 
1:1091. 



if ord (put_typeah) = ord(end_typeah) then 

put_typeah := start_typeah; { wrap around } 
num_typeah : = num_typeah + 1 ; 
if num_typeah = full_thresh then 
begin 

last_stopped := true; 

if rec_hs = hwhs then 

begin { toggle modem signals } 

{$IFC debug2} 

if TRACE (DD, 5) then 

writeln(' RS-232 DTR turned off. ') ; 
{$ENDC} 

WR_SCC(5, openwr5 - (-128)) { enable receive handshake signals } 
end 
else 
begin { send xoff } 

hschar_pending : = xof f_char ; 
BYTEO (port_ptr) 
end 
end; 

if cu^reqLptr <> nil then 
if cur_read_flag then 

COPYBYTES (port_j>tr) 
end 

else { char gets thrown away } 
begin 

if rec_hs = rec_xon then 
begin { send xoff again } 

hschar_j?ending := xoff_char; 
BYTEO (port_ptr) ; 
last_stopped := true; 
end 
end 
end; { with port_ptr } 
end; { bytein } 

begin { DRIVER ) 

port_ptr : = pointer (parameters A . conf igptr" . cb_addr ) ; 

case parameters* . fnctn_code of 
seqio : STARTIT ; 

dinit: INITIT; { call subroutine to reduce size of DRIVER } 

dcontrol: CONTROLIT; { call subroutine to reduce size } 

dalarms : XMT_TO_HNDL (port_ptr) ; { alarm routine } 

dinterrupt: begin { ignore call version & returned function value for ints } 

with port_ptr A , hwcontrol" do 
case parameters* . intpar of 

axmit: 

begin 

if hschar_j?ending <> no_char then 

BYTEO (port_ptr) 
else 

if (cur_req_ptr = nil) or cur_read_flag or xmit_wait then 

controlreg := $28 { ignore output interrupts } 
else 

with cur_info_ptr A do 
if waitb4next then 

begin { start up delay following CR or LF } 
waitb4next := false; 
ALARMRELATIVE (xmit_ref , crlf delay ) ; 
xmit_wait := true; 

controlreg := $28; { start timer & kill interrupt } 
end 
else 

if xfer_count < num_bytes then 

BYTEO (port_ptr) { send next byte out ) 
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1092. 
1093. 
1094. 
1095. 
1096. 
1097. 
1098. 
1099. 
1100. 
1101. 
1102. 
1103. 
1104. 
1105. 
1106. 
1107. 
1108. 
1109. 
1110. 
1111. 
1112. 
1113. 
1114. 
1115. 
1116. 
1117. 
1118. 
1119. 
1120. 
1121. 
1122. 
1123. 
1124. 
1125. 
1126. 
1127. 
1128. 
1129. 
1130. 
1131. 
1132. 
1133. 
1134. 
1135. 
1136. 
1137. 
1138. 
1139. 
1140. 
1141. 
1142. 
1143. 
1144. 
1145. 
1146. 
1147. 
1148. 
1149. 
1150. 
1151. 
1152. 
1153. 
1154. 
1155. 
1156. 
1157. 
1158. 
1159. 
1160. 
1161. 
1162. 
1163. 
1164. 
1165. 
1166. 
1167. 



else 

begin { complete previous request } 

controlreg := $28; { disable transmit interrupts with $28 } 

FINISH_REQ(port_j)tr, true) 
end 



end; {axmit} 



amodem ; begin 

if cur_req_ptr <> nil then 

if discon_detect and (controlreg < 0) then 

begin { assume disconnected cable on input framing error } 
if xmit_wait then { fixes bug } 
begin 

ALARMOFF(xmit_ref) ; 
xmit_wait := false 
end; 

cur_req_ptr A . hard_error : = errbase + 8 ; 
FINISH_REQ.(port_j>tr, false) 
end 
else 

if xmit_wait then 

if xmit_hs = hw_hs then 

begin { we've been waiting for modem handshake to change } 



{$IFC debug2) 

if TRACE (DD, 5) then 

writeln ( ' 
{$ENDC} 

xmit_wait := false; 
ALARMOFF(xmit_ref) ; 
BYTEO (port_ptr) 
end; 
controlreg := $10 
end ; { amodem ) 



RS-232 resume xmit after hw handshake. ') , 



{ reset the modem interrupt state } 



arecv : begin 

char_in : = hwdata A ; {get character } 

BYTEIN; { put received char in input buffer or typeahead buffer } 
end; {arecv} 

aerr : begin 

controlreg : = 1 ; { prepare to read register 1 with overrun error stat } 
i := 128; { NOP to assure delay between accesses } 
i := controlreg; 

if prity_char <= then { testing for parity errs } 

if ALLSET($10, i) then 
begin { parity error } 

i : = hwdata" ; { throw away real char } 

char_in := prity_char; { replace with parity error char: 00 or 80 } 
BYTEIN; 
end; 
controlreg := $30; { reset input error } 
end; {aerr} 

end { case parameters* . intpar } 



port_ptr A .hwcontrol A .controlreg := $38; 
end; { dinterrupt case } 

reqrestart: 
begin 

DRIVER := 0; 



{$IFC debug2} 

if TRACE (DD, 5) then 

writeln ( ' RS-232 restarting request.'); 
{$ENDC} 

INTSOFF(rsints, prevints) ; 

with port_ptr A do 
begin 

if restrt_in then 

begin 

COPYBYTES (port_j>tr) ; 



{ reset interrupt latch } 
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1:1168. 
1:1169. 
1:1170. 
1:1171. 
1:1172. 
1:1173. 
1:1174. 
1:1175. 
1:1176. 
1:1177. 
1:1178. 
1:1179. 
1:1180. 
1:1181. 
1:1182. 
1:1183. 
1:1184. 
1:1185. 
1:1186. 
1:1187. 
1:1188. 
1:1189. 
1:1190. 
1:1191. 
1:1192. 
1:1193. 
1:1194. 
1:1195. 
1:1196. 
1:1197. 
1:1198. 
1:1199. 
1:1200. 
1:1201. 
1:1202. 
1:1203. 
1:1204. 
1:1205. 
1:1206. 
1:1207. 
1:1208. 
1:1209. 
1:1210. 



restrt_in := false 
end; 

if restrt_out then 
begin 

BYTEO (port_ptr) ; 

restrt_out := false 
end 
end; 

INTSON(prevints) ; 
end; {reqrestart} 

ddown : begin 

INTSOFF(rsints, prevints); 
DRIVER := 0; 
with port_ptr" do 
begin 

if cur_reg i _ptr <> nil then 

DRIVER := errbase { + ? } 
else 
begin 

ptrsysg := pointer (bsysglob) ; 
if size_typeah > then 

RELSPACE(ord(start_typeah) , ptrsysg") ; 
ALARMRETURN(xmit_ref) ; 
if parameters" .configptr" . iochannel = then { reset channel } 

WR_SCC(9, -118) {=$8A} 

else 

WR_SCC(9, $4A) ; 
parameters" .configptr" .cb_addr := ord(nil); 
RELSPACE(ord(port_j>tr) , ptrsysg"); 
end 
end; 

INTSON (prevints ) 
end ; { ddown } 

otherwise 

DRIVER : = errbase + 2 ; { currently unimplemented w/ error } 
end; { case parameters" . fnctn_code } 
end; { DRIVER ) 

end. 



{ set up pointer to b_sysglobal_ptr } 



End of File: RS232.TEXT 



Directory of files in Cross Reference: 



1: RS232.TEXT 
























level = 1 . 






















a 1: 171, 


1: 187 




1: 


565, 


1 


1196. 










adj io c 1 : 374 , 


1: 939. 




















aerr 1 : 


29*, 1 


1133. 


















alarm as 1 


620. 






















alarmof f 1 


378, 


1:1006, 


1:1105, 


1 


1122. 














alarmrel 1 


203, 


1: 339, 


1: 879, 


1 


989, 






1 


1085. 






alarmret 1 


1192. 






















allset 1: 127, 


1: 154, 


1: 154, 


1 


156, 






1 


1138. 






amodem 1 : 


27*, 1 


1099. 


















arlO 1: 584=, 


1: 633=, 


1: 634=, 


1 


635=, 






1 


681, 


1 


705, 


1: 751, 


1: 819 




1: 


823, 


1 


836, 






1: 


837, 


1: 871, 


1: 879 




1: 


886, 


1 


893. 










arecv 1 : 


28*, 1 


1128. 


















autolf 1 : 


55*, 1 


168, 


1: 


606=, 


1 


893= 










axmit 1 : 


26*, 1 


1073. 


















bkwd lin 1 


608=, 


1 


935. 




















bsysglob 1 


371, 


1 


435, 


1: 530, 


1 


818, 






1 


933, 


1 


1189. 


buff_off 1 


159, 


1 


237. 




















buff rdb 1 


159, 


1 


190, 


1: 237, 


1 


262, 






1 


374, 


1 


939. 


cal 1: 484* 






















cb_addr 1: 536=, 


1:1057, 


1:1197=. 


















chain fo 1 : 318 . 






















chan 1: 518*, 


1: 531=, 


1: 547, 


1 


570, 






1 


594. 






char in 1 : 


480*, 


1: 


973, 


1: 974, 


1 


976, 






1 


1014, 


1 


1129= 



736, 



1: 838, 



1: 741, 
1: 839, 



1: 849, 
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chr 1 


: 181. 














cnt 1: 229* 


1: 244= 


= , 


1 


245, 


1 


246=, 


1: 263, 


1: 289 












configpt 1: 531, 
1: 675, 


1: 536, 
1: 719 


1: 580=, 


1: 580, 
1:1057, 


1 


1: 
1193, 


controlr 1 : 


39*, 1 


123, 


1 


163=, 


1 


205=, 


1 


: 431= 


1: 433= 


= , 


1 


498=, 


1 


500=, 


1 


: 847, 


1: 940 




1 


1079=, 


1 


1087=, 


1 


:1136, 


1:1144= 


= , 


1 


1149=. 






copybyte 1 : 
crlfdela 1: 


332, 


1:1040, 
73*, 1 


1:1167. 
736=, 


1 


1085. 






cur info 1 : 




45*, 1 


157, 


1 


234, 


1 


320=, 


cur read 1 : 




46*, 1 


323=, 


1 


331, 


1 


379, 


cur req_ 1 : 
1 


: 376, 


44*, 1 
1: 393= 


159, 


1 

1 


237, 
441, 


1 
1 


318=, 
452, 


1 


: 986, 


1:1003 




1 


1038, 


1 


1078, 


d 1 


: 169, 


1: 187 












dalarms 1:1066. 














data_ptr 1: 116*, 
1: 259. 


1: 174= 




1 


176, 


1 


230*, 


dc rec 1: 522, 


1: 656. 












dc rec_p 1: 656*, 
dcode 1: 583=, 


1: 667= 
1: 632=, 


1: 673. 


1 


669. 






dcontrol 1: 581, 


1: 630, 


1:1064. 










dcrec 1: 522*, 


1: 582, 


1: 583, 


1: 584, 




1: 


1 


: 634, 


1: 635 




1 


636. 






dd 1 


: 133, 


1: 143 




1 


180, 


1 


198, 


1 


: 806, 


1: 923 




1 


981, 


1 


998, 


ddown 1 : 1180 . 














dequeue 1: 376. 
dev chai 1: 376, 


1: 951. 












dinit 1 : 1062 . 














dinterru 1 : 


1068. 














discon d 1 : 




52*, 1 


324, 


1 


609=, 


1 


851=, 


driverde 1 : 




11. 












driversu 1 : 




13. 












dversion 1 : 


582=, 


1: 631= 




1 


670. 






empty th 1 : 
end type 1 : 




84*, 1 
86*, 1 


265, 
250, 


1 

1 


837=. 
832=, 


1 


1016. 


enqueue 1 : 951 . 
err 1: 117* 


1: 159 




1 


161, 


1 


367*, 


1: 623= 














errbase 1 : 


25*, 1 


327, 


1 


452, 


1 


533, 


1: 896, 


1: 918 




1 


943, 


1 


1108, 


errnum 1: 229*, 


1: 237, 


1: 239. 










ext_ptr 1: 911*, 
fnctn co 1: 630=, 


1: 916=, 
1:1059. 


1: 917, 


] 


L: 924, 




1: 


forward 1 : 


94. 












freeze s 1 : 


159, 


1: 237. 












full thr 1: 




83*, 1 


754, 


1 


781, 


1 


839=, 


fwd_link 1: 


390, 


1: 436, 


1: 607=, 


] 


I: 608. 






get type 1 : 
1 


: 830= 


85*, 1 
1: 831 


250, 


1 


255, 


1 


257=, 


getspace 1 : 
hard err 1 : 


532, 
327=, 


1: 825. 
1: 452= 




1 


943=, 


1 


1108=. 


hschar_p 1 : 
1 


: 798= 


89*, 1 
1: 814= 


125, 


1 

1 


129, 
1034=, 


1 
1 


149=, 
1046=, 


hw hs 1 : 


32*, 1 


153, 


1 


611, 


1 


718, 


hwcontro 1 : 


48*, 1 


121, 


1 


276, 


1 


324, 


1: 563= 


1: 564 




1 


601, 


1 


713, 


hwdata 1 : 


47*, 1 


137=, 


1 


147=, 


1 


184=, 


hwhs 1 : 


33*, 1 


268, 


1 


430, 


1 


616, 


1 


:1022. 














i 1 


: 229* 


1: 250= 


= , 


1 


251, 


1 


252=, 


1 


: 279= 


1: 479' 


* 


1 


490*, 


1 


499=, 


1 


: 586= 


1: 653' 


r 


1 


846=, 


1 


847=, 


1 


: 859= 


1: 859 




1 


861, 


1 


968*, 


1 


:1135= 


1:1136= 


= , 


1 


1138, 


1 


1140=. 


implemen 1 : 
in break 1 : 




17. 
60*, 1 


423, 


1 


425=, 


1 


602=, 


in servi 1 : 


319. 














intl 1 : 


35, 1 


39, 


1 




50 


1: 51 


1: 480, 


1: 484 




1 


484. 






intlptr 1 : 
intlrec 1 : 


35*, 1 
37, 1 


47, 
38*. 


1 




85 


1: 86 


intlrecp 1 : 




37*, 1 


48, 


1 


520. 







250, 

: 629= 

1197. 
278=, 
554, 

1094=, 



1: 252, 1: 255, 1: 256, 

1: 629, 1: 662, 



1: 631, 

1: 272, 
1:1026, 



1: 518*, 



280=, 
564, 
1101, 



321, 


1 


372, 


987, 


1 


1004, 


319, 


1 


320, 


545=, 


1 


726, 


1100, 


1 


1108, 



255, 



632, 



1: 386, 
1:1117, 



1: 857=, 1: 940, 



527=, 



1: 671, 1: 727, 
1:1186, 1:1205. 



1:1019. 

1: 259, 1: 260=, 



285=, 


1 


382, 


1075. 






865, 


1 


1113. 


427, 


1 


496, 


843, 


1 


940, 


601=, 


1 


1129, 


700, 


1 


776, 


255, 


1 


256, 


518*, 


1 


554=, 


852, 


1 


853=, 


974=, 


1 


976=, 


679=, 


1 


882, 




54 


1: 68 


116, 


1 


230. 



: 324, 


1 


429 


: 713=, 


1 


845 


:1125=, 


1 


1134 



1: 260, 



422, 


1 


1081 


1039, 


1 


1078 


327, 


1 


375 


875, 


1 


952 


1185. 







1: 256=, 1: 256, 



1: 633, 

1: 760, 
1:1157. 



1: 533=, 1: 542, 
1: 826, 1: 876, 



797=, 



1: 784=, 1: 790= 



1 


553=, 


1 


554 


1 


1070, 


1 


1149 


1 


1140. 






1 


802, 


1 


886 


1 


259, 


1 


260 


1 


564=, 


1 


575 


1 


853, 


1 


858 


1 


977, 


1 


992 



1: 884=, 1: 953. 

1: 69, 1: 81, 
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interfac 1 




7. 




























intpar 1 : 1071 . 
intsoff 1: 525, 


1: 668, 


1: 934, 


1:1161, 






1 


1181. 














intson 1: 899, 


1: 956, 


1:1177, 


1:1201. 






















intson t 1 


477. 




























iochanne 1 


531, 


1: 662, 


1: 675, 


1: 719, 






1 


1193. 














iospacem 1 
last sto 1 


528. 


79*, 1: 


264, 


1: 267=, 


1 


430, 






1: 618=, 


1 


700, 


1: 757=, 


1 


768 


1: 783= 


1: 789= 


, 


1: 799, 


1 


801= 






1: 886, 


1 


1021=, 


1:1048=. 






leftlink 1: 910*, 


1: 935=, 




1: 937, 


1 


951. 


















link_ptr 1: 910. 
linkage 1 : 
moveleft 1: 255, 


49. 

1: 259. 


























no block 1 : 


78*, 1: 


291, 


1: 615=, 


1 


751= 






1: 936. 












no char 1 : 


89*, 1: 


125, 


1: 149, 


1 


382, 






1: 798, 


1 


1075. 








nullink 1: 318, 


1: 390, 


1: 390, 


1: 436, 






1 


436, 


1: 607, 




1: 607, 


1: 608, 






1: 608, 


1: 935, 




1: 937. 






















nulllink 1 




49*. 


























num byte 1 


244, 


1: 291, 


1: 446, 


1: 917, 






1 


1090. 














num type 1 




82*, 1: 


235, 


1: 245, 


1 


246, 






1: 263=, 


1 


263, 


1: 265, 


1 


754 


1 : 781 , 


1: 796= 


, 


1: 937, 


1 


1012, 






1:1018=, 


1 


1018, 


1:1019. 






odd 1: 705. 




























ok flag 1 : 


94*, 1: 


375, 


1 


387. 






















openwrl4 1: 551=, 
openwr5 1 : 


1: 561=, 
50*, 1: 


280, 


1 
1 


749. 
426=, 


1 


426, 






1: 431, 


1 


433, 


1: 552=, 


1 


562 


1: 592, 


1: 676= 


, 


1 


678=, 


1 


685= 






1: 685, 


1 


701, 


1: 703, 


1 


756 


1: 767, 


1: 810, 




1 


885=, 


1 


885, 






1: 887, 


1 


889, 


1:1030. 






openwrl4 1 : 

p 1: 521* 


51*. 
1: 580, 




1: 585, 


1 


586, 






1: 629, 


1 


630, 


1: 636. 






p fnctn 1 


581=. 




























param_pt 1 
paramete 1 




15. 
15*, 1: 


531, 


1: 536, 


1 


580, 






1: 620, 


1 


629, 


1: 659, 


1 


914 


1:1057, 


1:1059, 




1:1071, 


1 


1193, 






1:1197. 












params 1 : 521 . 
parptr 1: 585=, 
pointer 1 : 174 , 


1: 636=, 
1: 243, 


1: 667. 
1: 256, 


1: 260, 






1 


320, 


1: 371, 




1: 435, 


1: 528, 






1: 529, 


1: 530, 




1: 537, 


1 


601, 






1: 667, 


1 


818, 


1: 829, 


1 


832 


1: 916, 


1: 933, 




1: 935, 


1 


1015, 






1:1057, 


1 


1189. 








port_ptr 1: 478*, 


1: 496, 


1: 537= 


1: 624, 






1 


669, 


1: 785, 




1: 791, 


1: 815, 






1: 930, 


1: 954, 




1 


971, 


1 


1007, 






1:1035, 


1 


1040, 


1:1047, 


1 


1057 


1:1066, 


1:1070, 




1 


1076, 


1 


1091, 






1:1095, 


1 


1109, 


1:1123, 


1 


1149 


1:1163, 


1:1167, 




1 


1172, 


1 


1183, 






1:1198. 












portacon 1 : 520* , 


1: 528=, 




1 


529, 


1 


553. 


















portbcon 1 : 520* , 


1: 529=, 




1 


563. 






















portrec 1 : 
portrec 1 : 


42, 1: 
42*, 1: 


43*, 
94, 


1 
1 


532. 


97 


1: 


210, 


1: 297, 


1 


398, 


1: 478. 






prev cha 1 : 


54*, 1: 


169, 


1 


169, 


1 


171= 






1: 176=, 


1 


181, 


1: 184, 


1 


187 


1: 187, 


1: 605= 


























prevints 1: 477*, 


1: 525, 


1: 668, 


1: 899, 






1 


934, 


1: 956, 




1:1161, 


1:1177, 






1:1181, 


1:1201. 


























prity ch 1 : 


81*, 1: 


617=, 


1: 686=, 


1 


691= 






1: 696=, 


1 


708=, 


1:1137, 


1 


1141 


ptrsysg 1: 368*, 


1: 371=, 


1: 376, 


1: 390, 






1 


419*, 


1: 435= 




1: 436, 


1: 481*, 






1: 517* 


1: 530= 


, 


1 


532, 


1 


607, 






1: 624, 


1 


654*, 


1: 818=, 


1 


822 


1: 825, 


1: 909* 


, 


1 


933=, 


1 


935, 






1: 951, 


1 


1189=, 


1:1191, 


1 


1198 


put type 1 




85*, 1: 


797, 


1 


831=, 


1 


1014= 






1:1015=, 


1 


1015, 


1:1016, 


1 


1017 


read fla 1 


323, 


1: 924, 


1: 936. 
























real add 1 


118*, 


1: 160, 


1: 174, 


1: 231* 






1 


238, 


1: 243. 












rec hs 1 : 


77*, 1: 


268, 


1: 430, 


1 


616= 






1: 700, 


1 


776=, 


1: 780=, 


1 


802 


1: 886, 


1:1022, 




1:1044. 






















rec xon 1 : 


33, 1: 


780, 


1:1044. 






















recv hs 1 : 


33*, 1: 


77. 
























regno 1: 484*, 
relspace 1 : 624 , 
req 1: 916, 


1: 498. 
1: 822, 
1: 943, 


1:1191, 


1:1198. 
1: 944, 


1 


947, 






1: 951. 












req_exte 1 
reqptr t 1 
reqresta 1 
reqsrv f 1 
reqstatu 1 
restrt i 1 


320, 

1152. 
319=. 
319. 


1: 916. 
44. 

53*, 1: 


240=, 


1: 380=, 


1 


603= 






1:1165, 


1 


1168=. 








restrt o 1 




53*, 1: 


164=, 


1: 383=, 


1 


604= 






1:1170, 


1 


1173=. 








rs232 1 : 


2. 


























rsints 1 : 525 , 


1: 620, 


1: 668, 


1: 934, 






1 


1161, 


1:1181. 












send hs 1 : 


32*, 1: 


59. 
























seqextpt 1 
seqio 1 : ] 


L060. 


45, 1: 


911. 
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size_typ 1 : 



80, 



1: 628=, 



821, 1: 823=, 



1: 824, 1: 825, 



1: 832, 



1:1190. 






























sizeof 1 : 532 . 






























speed 1: 653*, 


1: 741=, 


1: 744, 


1: 748. 
























start ty 1 : 


85*, 1 


257, 


1: 822, 


1 


829= 






1: 830, 


1 


1017, 


1: 


1191. 






status 1: 117*, 


1: 123=, 


1: 127, 


1: 154, 






1: 


154, 


1: 156. 














temp 1: 519*, 


1: 532, 


1: 536, 


1: 537, 






1: 


655*, 


1: 663= 




1: 665= 


1 


: 741, 






1: 825, 


1: 829 




1: 832. 
























trace 1: 133, 


1: 143, 


1: 180, 


1: 198, 






1: 


272, 


1: 386, 




1: 760, 


1 


: 771, 






1: 806, 


1: 923 




1: 981, 


1 


998, 






1:1026, 


1 


1117, 


1: 


1157. 






unblk_re 1: 375, 


1: 944, 


1: 947. 


























unfreeze 1: 190, 


1: 262. 




























unit 1 : 


2. 




























val 1: 500. 






























waitb4ne 1 : 


72*, 1 


188=, 


1: 335=, 


1 


1082, 






1:1084=. 














xfer cou 1 : 174 , 


1: 175= 




1: 175, 


1 


243, 






1: 244, 


1 


289=, 


1: 


289, 


1 


291 


1: 446, 


1:1090 




























xmit del 1 : 


32, 1 


186, 


1: 445, 


1 


735. 




















xmit hs 1: 443, 


1: 718=, 


1: 730= 


1: 977, 






1: 


992, 


1:1113. 














xmit ref 1 : 


62*, 1 


203, 


1: 339, 


1 


378, 






1: 620, 


1 


621, 


1: 


879, 


1 


989 


1:1006, 


1:1085 




1:1105, 


1 


1122, 






1:1192. 














xmit tim 1 : 


65*, 1 


202, 


1: 203, 


1 


338, 






1: 339, 


1 


619=, 


1: 


871=, 


1 


988 


1: 989. 






























xmit wai 1 : 


61*, 1 


204=, 


1: 326=, 


1 


336, 






1: 377, 


1 


440, 


1: 


444=, 


1 


610 


1: 723= 


, 1: 731= 


= , 


1: 737=, 


1 


868= 






1: 942=, 


1 


985=, 


1: 


994, 


1 


1002 


1:1078, 


1:1086= 


= , 


1:1103, 


1 


1106= 






1:1112, 


1 


1121=. 










xmit xon 1 : 


32*. 




























xmt hs 1 : 


59*, 1 


153, 


1: 186, 


1 


336, 






1: 445, 


1 


611=, 


1: 


735=, 


1 


865 


xmt to h 1:1066. 






























xmt xon 1: 336, 


1: 443, 


1: 730, 


1: 977, 






1: 


992. 
















xmtrrO 1 : 


68*, 1 


154, 


1: 549=, 


1 


559= 






1: 720=, 


1 


866=. 










xmtzrrO 1 : 


69*, 1 


154, 


1: 550=, 


1 


560= 






1: 722=, 


1 


867=. 










xof f cha 1 : 


89*, 1 


129, 


1: 784, 


1 


1034, 






1:1046. 














xon char 1 : 


89, 1 


285, 


1: 790, 


1 


814. 





















Procedures 



bytein 1 : 


963*, 


1:1130, 


1:1142. 


























byteo 1 : 


97*, 1: 


286, 


1: 342, 


1 


447, 


1 


785, 


1 


791, 


1 


815, 


1 


1007, 


1:1035, 


1:1047, 




1:1076, 


1 


1091, 


1 


1123, 


1 


1172. 










control! 1: 646*, 


1:1064. 


























finish r 1 : 


94*, 1: 


292, 


1: 328, 


1 


348*, 


1 


449, 


1 


453, 


1 


1095, 


1 


1109. 


initit 1: 510*, 


1:1062. 


























port 1 : 


94*, 1: 


97*, 


1 


121, 


1 


210*, 


1 


234, 


1 


286, 


1 


292, 


1 


297* 


1: 316, 


1: 328, 




1 


332, 


1 


342, 


1 


372, 


1 


391, 


1 


398*, 


1 


422, 


1: 437, 


1: 447, 




1 


449, 


1 


453, 


1 


543. 














start ne 1: 297*, 


1: 391, 


1: 437, 


1: 954. 






















startit 1: 903*, 


1:1060. 


























wr sec 1: 484*, 


1: 555, 


1: 565, 


1: 568, 




1: 571, ] 


L: 574, 




1: 588, 1 


: 590, 






1 


592, 


1 


595, 




1 


597, 


1 


599, 


1 


683, 


1 


684, 


1 


689, 


1 


690, 


1 


694, 


1 


695, 




1 


701, 


1 


703, 


1 


707, 


1 


712, 


1 


742, 


1 


744, 


1 


748, 


1 


749, 




1 


756, 


1 


767, 


1 


810, 


1 


861, 


1 


887, 


1 


889, 


1 


1030, 


1 


1194, 




1 


1196. 






















xmit to 1: 398*. 




























Functions 




























driver 1 : 


15*, 1: 


459*, 


1: 586, 


1 


661=, 


1 


671=, 


1 


727=, 


1 


826=, 


1 


876= 


1 


896= 


, 1 


918= 


, 


1 


932=, 


1 


1154=, 


1 


1182=, 


1 


1186=, 


1 


1205=. 







Declaration Character : 
Assignment Character : 
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Cross Reference Listing: 



Beginning of file: RS232MAIN.TEXT 



1 


1. 




1 


2. 


PROGRflM DUMMYMAIN; 


1 


3. 




1 


4. 


USES 


1 


5. 


{$U object/ driverdefs .obj } 


1 


6. 


driverdef s , 


1 


7. 


{$U object/driversubs .obj } 


1 


8. 


driversubs , 


1 


9. 


{$U object/rs232.obj} 


1 


10. 

} 
11. 


rs232 ; 


1 




1 


12. 


VflR 


1 


13. 


i : integer ; 


1 


14. 


p : param_j?tr ; 


1 


15. 




1 


16. 


begin 


1 


17. 


i := driver (p) ; 


1 


18. 


end; 



{ these 2 lines vary from driver } 
{ 



to driver 



End of File: RS232MAIN.TEXT 



Directory of files in Cross Reference: 



1: RS232MAIN 


TEXT 






level = 1 . 








driver 1 : 


17. 






driverde 1 : 


6. 






driversu 1 : 


8. 






dummymai 1 : 


2. 






i 1: 


13*, 


1: 


17 


P 1: 


14*, 


1: 


17 


param_pt 1 : 


14. 






program 1 : 


2. 






rs232 1 : 


10. 







Declaration Character : 
Assignment Character : 
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Cross Reference Listing: 



Beginning of file: DRIVERDEFS . TEXT 



1 


1. 


1 


2. 


1 


3. 


1 


4. 


1 


5. 


1 


6. 


1 


7. 


1 


8. 


1 


9. 


1 


10. 


1 


11. 


1 


12. 


1 


13. 


1 


14. 


1 


15. 


1 


16. 


1 


17. 


1 


18. 


1 


19. 


1 


20. 


1 


21. 


1 


22. 


1 


23. 


1 


24. 


1 


25. 


1 


26. 


1 


27. 


1 


28. 


1 


29. 


1 


30. 


1 


31. 


1 


32. 


1 


33. 


1 


34. 


1 


35. 


1 


36. 


1 


37. 


1 


38. 


1 


39. 


1 


40. 


1 


41. 


1 


42. 


1 


43. 


1 


44. 


1 


45. 


1 


46. 


1 


47. 


1 


48. 


1 


49. 


1 


50. 


1 


51. 


1 


52. 


1 


53. 


1 


54. 


1 


55. 


1 


56. 


1 


57. 


1 


58. 


1 


59. 


1 


60. 


1 


61. 


1 


62. 


1 


63. 


1 


64. 


1 


65. 


1 


66. 


1 


67. 


1 


68. 


1 


69. 


1 


70. 


1 


71. 



UNIT DRIVERDEFS; 



{ UNIT NEEDED BY CONFIGURABLE DRIVERS } 



{ By Dave Offen } 

{ Copyright 1983, Apple Computer Inc. } 

INTERFACE 

{$U-} { DON'T use any iospaslib definitions in place of explicitly USE -d modules } 
{$X-} { Disallow automatic stack expansion in system code } 

{$SETC DEBUG :=TRUE} 



{$SETC DEBUG1 
{$SETC DEBUG2 
{$SETC DEBUG3 



=FALSE} 
=FALSE} 
=FALSE} 



{$SETC 0S1S:=TRUE} 



/** 

{** The delineated values are also defined in PASCALDEFS assembly language routine. 

I-k-k 



{ valid values in INTSOFF_TYPE } 
{**} allints = $700; { all interrupts off} 



rsints = $600 
slotints = $500 
copsints = $200 
vertints = $100 
twigints = $100 
winints = $100 
clokints = $100 
clkonints = ; 

{**} bsysglob = $200; 
{**} portcbofset = -24609; 

{**} maxdev = 39; 



{ rs232 interrupts off } 

{ 3 I/O slots interrupts off } 

{ cops interrupts off } 

{ vertical retrace interrupts off } 

{ twiggy interrupts off } 

{ Winchester disk interrupts off } 

{ clock interrupts off } 

{ clock interrupts on; lower off } 

{ memory addr of sysglobal base — same as PASCALDEFS } 
{ this MUST be the same as port_cb_j>trs in PASCALDEFS } 

{ size of device table } 



size_rspec_info =3; { size of specific info in reqblk } 
{ size of e_name string } 



max_ename = 32 ; 
iospacemmu = 126; 



{**} dinterrupt =0; 
dinit = 1; 
ddown = 2 ; 
dskunclamp = 3 ; 
dskf ormat = 4 ; 
seqio = 5; 
dskio = 6; 
dcontrol = 7 ; 
reqrestart = 8 ; 
ddiscon =9; 

dattach = 12; 
hdinit = 13; 
hdskio = 14; 
dunattach = 16; 
dalarms = 17; 
hddown = 18; 



{ Definition of 'slot' # for Lisa Devices } 
cd_slotl =0; { the basic 3 slots } 

cd slot2 = 1; 



{ mmu used to map the system I/O space } 



{ valid function code values } 
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72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 

81. 

82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 
126. 
127. 
128. 
129. 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
138. 
139. 
140. 
141. 
142. 
143. 
144. 
145. 
genio } 
146. 



cd_slot3 = 2; 
cd_slot4 = 3; 
cd_slot5 = 4 ; 
cd_scc =5; 
cd_soft = 6; 
cd_hard = 7 ; 
cd_paraport = 8 ; 
cd console = 9; 



{ 1 . 75 ' s 2 expansion slots } 

{ sec chip controlling two serial channels } 

{ twiggy/sony or whatever else serves as built-in floppy } 

{ widget or whatever serves as built-in hard disk } 

{ parallel port } 

{ alternate and primary console } 

{ 10-14 are still available } 



TYPE 

intl = -128 . . 127 ; { 1 byte integer } 

int2 = integer; { 2 byte integer } 

int4 = longint; { 4 byte integer } 

relptr = int2 ; { 2 byte pointer } 

absptr = int4 ; { 4 byte pointer } 

OSPORTION=(MM, PM, EM, EC, AC, FS, DD, INIT, TRECORD, SPARE1 , SPARE2, SPARE3, SPARE4) ; 

link_ptr = ^linkage; {pointer to a linkage record } 

linkage = record 

f wd_link : relptr ; { forward link } 
bkwd_link: relptr; { backward link } 
end; 



intsof f_type = $100 . . $700 ; 
intson_type = 0..$700; 



{ interrupts off parameter } 

{ interrupts on parameter } 



{* 

{* COMMON HEADER FOR REQUEST BLOCKS AND PCBS *} 

{* 

{ 



********************************************* 



rb_type = (pcb_type, reqblk_type, ecm_type, sprl, spr2 , spr3) ; 
rbheader_type = A rb_headT; 
rb_headT = record 

header : linkage ; 
kind : rb_type ; 
end; 



;******************************; 



{* 

{* I/O STRUCTURES FOR DRIVERS *} 

{* 

/******************************} 

{**} rec_port_cb = record 

{ ** } 

{ ** } 

{**} 
{**} 
{ ** } 

{**} end; 



slotx: array [0.. 2] of absptr; 
rs232 : absptr; { 2 channels } 



via2 : absptr; 

vial : absptr; 

screen : absptr ; 

floppy: absptr; { 2 drives & parameter memory } 



{ COPS, SPEAKER, TIMER } 

{ hard disk, parallel printer } 



arraylOptr = A arrayl0; 

arraylO = array [0.. 9] of longint; { used for passing arbitrary- length parameters } 

reqptr_type = A reqblk; 

e_name = string [max_ename] ; 

{**} devtype = (diskdev, pascalbd, seqdev, bitbkt, non_io, sparl , spar2 , spar3) ; 
{**} ptrdevrec = A devrec; 

{**} devrec = record 

{**} entry_pt: absptr; { driver address - nil if uninitialized } 

{**} cb_addr: absptr; { ptr to control block for this device } 

{**} ext_addr: absptr; { ptr to additional device info } 

drvrec_ptr: absptr; { ptr to driver-loading control record. 

Nil means non-configurable. Defined 



devname: e name; 



{ device name } 
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1: 147. slot_no: intl; { 0-2 or -1 if built-in } 

1: 148. iochannel: intl; { channel on hardware controller } 

1: 149. device_no: intl; { device on channel } 

1 : 150 . devt : devtype ; { device type } 

1: 151. blockstructured: boolean; { true if device is block structured } 

1: 152. permanent: boolean; { don't unload when DOWNing } 

1: 153. self_ident: integer; { from controller card - for debugging } 

1: 154. required_drve : ptrdevrec; { ptr to "higher" configinfo - nil if none } 

1: 155. permreq_ptr : reqptr_type; { ptr to pre-allocated req blk - nil if none } 

1: 156. preq_avail : boolean; { true when permreq_ptr currently avail for use } 

1: 157. end; 

1: 158. 

1: 159. {**} ext_diskconfig = record { extension info for disk devrec } 

1: 160. {**} hentry_pt: absptr; { entry pt for Hdisk calls } 

1: 161. {**} num_bloks : longint; { size of device } 

1: 162. {**} strt_blok: longint; { virtual volume start address } 

1: 163. {**} f s_strt_blok: longint; { offset within virtual volume to } 

1: 164. {**} { file system } 

1 : 165 . removable, ejectable: boolean; 

1: 166. {**} end; 

1: 167. 

1: 168. {**} configtype = array [0 . .maxdev] of ptrdevrec; 

1: 169. 

1: 170. {**} times tmp_interval = record 

1: 171. {**} sec: longint; 

1: 172. {**} msec: 0..999; 

1: 173. {**} end; 

1: 174. 

1: 175. reqsts_type = record { request status } 

1 : 176 . reqsrv_f : (active, in_service, complete) ; 

1: 177. reqsuccess_f : boolean; { complete successfully or not } 

1: 178. reqabt_f: boolean; { abort pending or not } 

1: 179. end; 

1: 180. 

1: 181. reqblk = record { request block } 

1: 182. pcb_chain: rb_headT; { pcb chain, block header } 

1: 183. dev_chain: linkage; { device or pipe chain } 

1: 184. list_chain: linkage; { list of request blocks for blocking } 

1 : 185 . block_p_f : boolean; { block process flag } 

1: 186. blk_in_pcb: intl; { generic block type for future changes } 

1 : 187 . reqstatus : reqsts_type ; { request status } 

1: 188. operatn: intl; { 0=write, l=read, 2=format, 3=unclamp. . . } 

1: 189. cfigptr: ptrdevrec; { identifies to which device this request 

1: 190. belongs if it's an I/O request } 

1: 191. req_extent: absptr; { extdptr_type when devt=diskdev 

1: 192. seqextptr_type when devt=seqdev } 

1: 193. hard_error: integer; { error code when reqstatus . reqsuccess_f 

1: 194. = FALSE } 

1: 195. reqspec_inf o : longint; { specific information such as sort 

1: 196. key for device's queue } 

1: 197. end; 

1: 198. 

1: 199. disk_io_type = (with_header, without_header, raw_io, chained_hdrs) ; 

1: 200. page label = packed record 

1 : 201 . version : integer ; 

1: 202. datastat: (dataok, datamaybe, databad) ; 

1: 203. filler: -32. .31; 

1 : 204 . volume : intl ; 

1 : 205 . fileid: integer; 

1 : 206 . dataused : integer ; 

1 : 207 . abspage : int4 ; 

1 : 208. relpage : int4 ; 

1: 209. fwdlink: int4; 

1: 210. bkwdlink: int4 ; 

1: 211. end; 

1: 212. 

1: 213. extdptr_type = A disk_extend; 

1: 214. disk_extend = record 

1 : 215 . xfer_count: longint; 

1 : 216 . read_f lag : boolean ; 

1: 217. buff_rdb_ptr: absptr; 

1: 218. buff_offset: absptr; 

1: 219. resolved_addr : absptr; { results of freeze_seg } 

1: 220. blkno: longint; 

1: 221. soft_hdr: pagelabel; 

1: 222. last fwd link: int4; 
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223 


224 


225 


226 


227 


228 


229 


230 


231 


232 


233 


234 


235 


236 


237 


238 


239 


240 


241 


242 


243 


244 


245 


246 


247 


248 


249 


250 


251 


252 


253 


254 


255 


256 


257 


258 


259 


260 


261 


262 


263 


264 


} 


265 


266 


267 


268 


269 


270 


271 


272 


273 


274 


275 


276 


277 


278 


279 


280 


281 


282 


283 


284 


285 


286 


287 


288 


289 


290 


291 


292 


293 


294 


295 


296 


297 



last_data_used : integer ; 
io_mode : disk_io_type ; 
num_chunks : integer ; 
miscl : integer ; 
misc2 : longint; 
end; 



seqextptr_type = A seq_extend; 
seq_extend = record 



param_ptr = A params ; 
params = record 



xf er_count : longint ; 

read_f lag : boolean ; 

buf f_rdb_ptr : absptr ; 

buf f_of f set : absptr ; 

resolved_addr : absptr; { results of freeze_seg } 

num_by tes : longint ; 

end; 



conf igptr : ptrdevrec ; 

case f nctn_code : integer of 

dskunclamp , ddown , hddown , dskf ormat , dinit , hdinit , ddiscon : ( ) ; 

seqio, reqrestart, dskio : (req: reqptr_type) ; 

dinterrupt, dalarms : (intpar: integer) ; 

dcontrol : (parptr : absptr) ; 

dattach: (n_conf igptr : ptrdevrec) ; 

dunattach : (o_conf igptr : ptrdevrec ; still_inuse : boolean) ; 

hdskio: (c_cmd: integer; c_sector : longint) ; 
end; 

dc_rec = record { for dcontrol } 

dversion : integer ; 
dcode : integer ; 
arlO: array[0..9] of longing- 
end; 

{ Control Block for hard disk device } 
hdiskcb_ptr = A hdisk_cb; 

{ NOTE: Definitions marked with ** may have corresponding definitions in } 
{ Assembly language portions of drivers . 

hdisk_cb = record { device/driver info for all Apple format hard disks } 

{**} config_addr: ptrdevrec; { config entry address - must be 1st } 
{**} ext_ptr: absptr; { ptr to driver specific info } 

{ * * } raw_data_ptr : longint ; { points to start of data } 
{**} raw_header_jptr: "pagelabel; { points to start of header } 
{**} x_leng: longint; { offset to data } 

{**} sect_left: integer; { for current request } 

{**} v_flag: boolean; { re-read all writes? } 

restrt_count: integer; { the retry count for this req } 
restrt_limit: integer; { max number of restarts allowed } 
total_restarts : longint; { # of restarts of state machine } 
soft_header: pagelabel; { the buffer used to copy header } 
int_prio : intsof f_type ; { the interrupt priority of this } 

{ drive } 
cur_inf o_ptr : extdptr_type ; { ptr to cur req's extension } 
req_hd_ptr : reqptr_type ; { next request to be serviced } 
dummy_req_ptr : reqptr_type; { phoney request at cyl -1 or 32767 } 
cur_num_requests : integer; { not counting dummy request } 
worstwarning: integer; { worst warning encountered in } 

{ this request } 
end; 



J*********************************} 

{* *i 

{* DEFINITION OF SYSGLOBAL CELLS *} 

{* *} 

J*********************************} 

{ port_cb_ptrs : rec_port_cb; port control block for drivers } 
{ configinfo: configtype; table of configured devices } 
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1 


298. 


{ sysa5 


1 


299. 




1 


300. 


IMPLEMENTATION 


1 


301. 




1 


302. 


end. 


1 


303. 




Enc 


i of File 


DRIVERDEFS . TE; 



A5 required for pascal } 



Directory of files in Cross Reference: 

1: DRIVERDEFS . TEXT 
level = 1 . 



abspage 1: 207*. 
absptr 1 : 

1: 142, 


89* 
1: 


1: 
143, 


122, 


1: 123, 
1: 144, 


1: 124 
1: 160 


1: 234, 


1: 


235, 




1: 236, 


1: 247 


ac ] 
active 1 : 
allints 1 : 


176*. 


91* 
28* 










arlO 1: 
array 10 1 : 
arraylOp 1 
bitbkt 1 : 


256*. 
130, 

130*. 
137*. 


1: 131*. 








bkwd lin 1 




95* 










bkwdlink 1 


210*. 












blk in_p 1 
blkno 1 : 
block_p 1 
blockstr 1 


186*. 
220*. 
185*. 
151*. 












bsysglob 1 
buff_off 1 


218*, 


38*. 

1: 235*. 








buff_rdb 1 


217*, 


1: 234*. 








c cmd 1: 250*. 












c sector 1 : 250* . 












cb_addr 1: 142*. 












cd conso 1 : 
cd hard 1 : 


79* 
77* 










cd_parap 1 : 
cd sec 1 : 
cd slotl 1 : 


78* 
75* 
70* 










cd slot2 1 




71* 










cd slot3 1 




72* 










cd slot4 1 




73* 










cd slot5 1 




74* 










cd soft 1 : 


76* 










cfigptr 1: 189*. 
chained 1: 199. 












elkonint 1 




36* 










clokints 1 




35* 










complete 1 
config a 1 
configpt 1 
configty 1 
copsints 1 
cur info 1 


176. 
267*. 
242*. 
168*. 

280*. 


31* 










cur num 1 
dalarms 1 : 
databad 1 : 


283*. 
202. 


66* 


1: 


246*. 






datamayb 1: 202*. 
dataok 1: 202*. 












datastat 1: 202*. 












dataused 1: 206*. 












dattach 1 : 


62* 


1: 


248*. 






dc rec 1: 253*. 












dcode 1: 255*. 
dcontrol 1 : 


58* 


1: 


247*. 






dd 1: 


91* 










ddiscon 1 : 
ddown 1 : 


60* 
53* 


1: 
1: 


244. 
244*. 






dev chai 1 : 183* . 












device n 1: 149*. 












devname 1: 146*. 












devrec 1 : 


138, 


1: 1 


10*. 









: 125, 


1: 


126 


: 191, 


1: 


217 


: 268. 







1: 127, 
1: 218, 



1: 141, 
1: 219, 
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devt 1 


150*. 












devtype 1 
dinit 1 


137*, 


1: 150 
52*, 


1 


244*. 






dinterru 1 : 


51*, 


1 


246*. 






disk ext 1: 213, 


1: 214* 








disk io 1: 199*, 


1: 224. 








diskdev 1: 137*. 












driverde 1 : 


2. 










drvrec_p 1: 144*. 
dskforma 1 : 


55*, 


1 


244*. 






dskio 1 : 


57*, 


1 


245*. 






dskuncla 1 : 


54*, 


1 


244*. 






dummy re 1: 282*. 
dunattac 1 : 


65*, 


1 


249*. 






dversion 1: 254*. 












e name 1: 135*, 


1: 146 










ec 1: 


91*. 










ecm type 1: 107*. 
ejectabl 1: 165*. 
em 1 : 


91*. 










entry_pt 1 : 141* . 
ext addr 1: 143*. 












ext_disk 1: 159*. 












ext_ptr 1 
extdptr '. 
fileid 1 


268*. 

L: 213*, 

205*. 


1: 280. 








filler 1 


203. 












floppy 1 
fnctn co '. 


127*. 
1: 243*. 












f s " _ 1 : 


91*. 










fs_strt_ 1: 163*. 












fwd link 1: 


94*. 










fwdlink 1: 209*. 












hard_err 1: 193*. 












hddown 1 : 


67*, 


1 


244*. 






hdinit 1 : 


63*, 


1 


244*. 






hdisk_cb 1: 261, 


1: 266* 








hdiskcb_ 1: 261*. 












hdskio 1 : 


64*, 


1 


250*. 






header 1: 110*. 












hentry_p 1: 160*. 
implemen 1 : 300 . 
in servi 1: 176*. 












init 1 




91*. 










intl 1 




85*, 


1 


147, 


1: 148, 


1: 149 


int2 1 




86*, 


1 


88. 






int4 1 




87*, 


1 


89, 


1: 207, 


1: 208 


int_prio 1 : 278* . 
interf ac 1 : 


7. 










intpar 1: 246*. 
intsof f 1 : 


98*, 


1 


278. 






intson t 1 : 


99*. 










io mode 1: 224*. 












iochanne 1 : 148* . 












iospacem 1 : 
kind 1: 111*. 


48*. 










last dat 1: 223*. 












last_fwd 1: 222*. 












link_ptr 1 : 
linkage 1 : 
list_cha 1: 184*. 


92*. 
92, 


1 


93*, 


1: 110, 


1: 183 


max enam 1 : 


46*, 


1 


135. 






maxdev 1 : 


41*, 


1 


168. 






miscl 1: 226*. 












misc2 1: 227*. 












mm 1 : 


91*. 










msec 1: 172. 












n conf ig 1 : 248* . 
non io 1 : 137* . 












num blok 1: 161*. 












num byte 1: 237*. 
num chun 1 : 225* . 












o config '. 
operatn 1 
osportio ] 
pagelabe I 


L: 249*. 

188*. 
L: 
. : 200*, 


91*. 
1: 221, 


1: 270, 


1: 277. 





1: 186, 1: 188, 
1: 209, 1: 210, 



1: 204. 
1: 222. 



1: 184. 
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param_pt 1 


: 240*. 




params 1 : 240 , 


1: 241*. 


parptr 1 : 247* . 




pascalbd 1 


: 137*. 




pcb chai 1 


: 182*. 




pcb type 1 


: 107*. 




permanen 1 


: 152*. 




permreq_ 1 


: 155*. 




pm 1 : 


91*. 


portcbof 1 




39*. 


preq_ava 1 


: 156*. 




ptrdevre 1 


: 138*, 


1: 154, 1: 168 


raw data 1 


: 269*. 




raw head 1 


: 270*. 




raw io 1: 199*. 




rb_headt 1: 108, 


1: 109*, 


rb type 1: 107*, 


1: 111. 


rbheader 1 


: 108*. 




read fla 1 


: 216*, 


1: 233*. 


rec_port 1 


: 121*. 




relpage 1: 208*. 




relptr 1 : 


88*, 1: 94, 


removabl 1: 165*. 




req 1: 245* 




req_exte 1 


: 191*. 




req_hd_p 1 


: 281*. 




reqabt f 1 


: 178*. 




reqblk 1: 133, 


1: 181*. 


reqblk t 1 


: 107*. 




reqptr t 1 


: 133*, 


1: 155, 1: 245 


reqresta 1 




59*, 1: 245*. 


reqspec 1 


: 195*. 




reqsrv f 1 


: 176*. 




reqstatu 1 


: 187*. 




reqsts t 1 


: 175*, 


1: 187. 


reqsucce 1 


: 177*. 




required 1 


: 154*. 




resolved 1 


: 219*, 


1: 236*. 


restrt c 1 


: 274*. 




restrt 1 1 


: 275*. 




rs232 1: 


123*. 




rsints 1 : 




29*. 


screen 1 : 


126*. 




sec 1: 171* 




sect lef 1 


: 272*. 




self ide 1 


: 153*. 




seq_exte 1 


: 230, 


1: 231*. 


seqdev 1 : 137* . 




seqextpt 1 : 230* . 




seqio 1 : 


56*, 1: 245*. 


size rsp 1 : 


43*. 


slot no 1: 147*. 




slotints 1 : 


30*. 


slotx 1: 122*. 




soft hdr 1: 221*. 




softjiea 1: 277*. 




sparl 1 : 


137*. 




spar 2 1 : 


137*. 




spar 3 1 : 


137. 




sparel 1 : 




91*. 


spare2 1 : 




91*. 


spare3 1 : 




91*. 


spare4 1 : 




91. 


sprl 1 : 


107*. 




spr2 1 : 


107*. 




spr3 1 : 


107. 




still_in 1: 249*. 




string 1 : 135 . 




strt bio 1 


: 162*. 




timestmp 1 


: 170*. 




total re 1 


: 276*. 




trecord 1 : 


91*. 


twigints 1 : 


33*. 


unit 1 : 


2. 


v_flag 1: 273*. 




version 1 : 


201*. 





1: 189, 



1: 242, 



1: 248, 



1: 249, 



1: 267. 



95. 



1: 281, 



1: 282. 
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vertints 1 : 



vial 1 


125*. 




via2 1 


124*. 




volume 1 


204*. 




winints 1 




34*. 


with hea '. 


L: 199*. 




without I 


L: 199*. 




worstwar '. 


L: 284*. 




x leng 1 


271*. 




xfer cou '. 


L: 215*, 


1: 2 


Declaratic 


>n Character : 


Assignmenl 


: Character : 



### THE END ### 
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